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Lisa sa.75 Diagnostic tests. 


This document ‘ctntains a simple cescription of the se a performed 
by the Lisa1.75 eee packages. — 


ROM Checksum test. 

These tests are done in the Boot ROM and are to verify that the correct data 
was programmed into each ROM and that eacn ROM location is readable. This test 
calculates the checksum of each ROM, using the same method as the Lisa 1.0 Boot 
ROM, and verifies that each ROM is correct. 


1. For ROM #1. This ROM is the one that contains the startup and Diagnostic - 
code. If this ROM is bad then a Boot ROM fatal error will occur right away. 

2. For ROM #2. This ROM contains hardware drivers and 0.S. routines. If 
this ROM is bad then a fatal error will occur after all other diagnostics nave 
been run. 


Video Memory tests. ee ae : 

These tests assure that the screen area and the data area for the 
diagnostics are lad propent A failure here is fatal and will 
terminate testing. — 


1. Stuck-at tests, verifies that there are no stuck-at-one or 
stuck-at-zero memory locations. 

2. Address uniqueness test, verifies that each memory location 1s unique 
and that no addresses are tied together. 

3. Memory pattern tests, these tests 100k for other types of memory 
failures such as refresh fails. , : 


Extensive. These tests are done inthe Boot ROH. The Boot ROM uses the video 
memory as a data storage device and operation entirely from the CPU board, with 
| no memory board plugged in, 1s essential for booting any device. — 
burn-in and hard ta find problems. This isa set of extended memory tests 
designed to be run from LisaTest. These tests run 'new and improved’ pattern 
tests and are designed to catch very hard to find memory errors. These tests may 
run from only minutes, to. hours, or days. The only way for these tests to be 
accessiable are for the Boot ROM's own tests to have Sela 


Video circuitry tests. 

This is abasic test of the video circuit. Both screen modes are timed to 
assure that the video is switching properly. 

1. VRT/VID/CSYNC test. 

The hardware provides a two bits in the status register which allows a 
program to monitor the video signals generated by the CPU board. This program 
tries to determine whether the CPU board vided Sema 1s working by looking 
at the VID and CSYNC releationships. : | 


The test checks to see that there are , tranisitions on the VRT (Vertical 
Retrace) bit in the status register, and makes a Tough extimate of the time 
between pulses on this signal. | 


The CSYNC bit is tested for transitions ae the VID bit is checked to make 
sure it is static for a solid black screen. The number of CSYNC pulses between 
vertical retraces is checked. 


The third routine first writes an n alternating pattern of is and Os to the 
screen memory area, 45 words of 0 then 45 words of 1, etc., until the area is 
filled. This will create a pattern on the screen of alternate white and blank 
lines. The routine then uses a scan routine to review the status register 
between 2 vertical retrace pulses, and aes the resulting data for the 
correct signal Pateernss 


After this, the program tests the vertical retrace Interrupt speci ity. 


_ Baste tests. These tests are designed for the Boot ROM and determine if the 
Video circuit is basically wo iui 
Extensive timing tests. 
station. These do more ee timing measurements of the video Signals. 


Serial numer valid: ity test. i ? 

This is a simple check to assure that the serial number is in the proper 
format and that the serial number is readable. A bounds check is done on parts of 
the serial number, this is a very loose test to allow all valid numbers to go 
thru. If the serial number is not readable or outside of legal bounds then a 

fatal Boot ROM error occu: es 


This test is only required in the. Boot ROM. 


z a 


Timer tests. | , | 
The et is one of the most ate parte of the system. The various 


ese tests are to be run fromLisaTest and the LNo” 


modes are tested for proper operation. A failure on either timer #0 or #1 will 
result ina fatal error for the Boot ROM. Since the timer #2 is used only for the 
speaker, its failure will result in anon-fatal error for the Boot ROM. 
Timers #0, #1,and #2 will be tested (note: timer #2 does not generate 
interrupts). 
. Binary and BCD(Binary Coded Decimal) count modes. 
. Mode 0, Interrupt on terminal count. 
. Mode 1, Programmable One-Shot. 
. Mode 2, Rate Generator. | 
. Mode 3, Square Wave Rate Generator. 
. Mode 4, Software Triggered Strobe. 


OU & WR Pe 


Extensive tests. Tne Boot ROM will extensively test the timers for 
proper operation. These tests will test all of the modes above. 
Hore extensive tests. More tests for the timers may be added to run thru 
LisaTest or LMO if the tests in the Boot ROM tests are not extensive enough. 


COPS functional tests. 
This is the device used to talk to the Keyboard and the Mouse. It also 
handles other items such as the time of day and programmable alarms. 


1. Setable test. | 

The calendar control allows anyone to disable the calendar, which is done 
when it is being set. The first test is one to make sure that the calendar can be. 
properly set. The calendar is disabled during this subtest, this assures that 
when it is set it will not change before the program has enough time to read it and 
see if it nas been set praperly : 

The test sets the clock té many different values to assure that each part of 
the date 1s set to the correct values. The COPS is sent the date to be set and then 
the command is sent to the COPS to return the current date. Since the clock is 
di sabled, the value set and the vale ae _ be the same. 


2. Wraparound test. 

This next test assures that the calendar keeps t track of the time correctly. 
This assures that, for example, when the seconds go from 59 to’60 seconds that 
tne calendar changes the seconds from 59. to 0 and increments the minutes by one. 
All the calendar parameters are tested to wraparound’at the correct values. 
Other values are tested to assure that standard incrementing is done. 

Ta do this test, the calendar is set to the test value, the calendar is 
enabled so it will increment every one tenth of a second. The program then waits 
' for a little over one tenth’of a second and then reads the current Calendar time. 

Since the clock time should have CRONgeG the time read will reflect the 
wraparound of premier: ‘ : 

3. Alarmtest. 

The COPS device also contains a programmabie alarm. "The user can specify 
that an alarm be generated, in effect that the computer is interrupted by the 
COPS, after a specific amount of time. The resolution of tne alarm is one 
second. The alarm is set, the program waits for the programmed time plus 3 


seconds or until thie interrupt occurs. The time expired from when the alarm was 
set and when the interrupt happened is verified against the actual iP pEpgroNied 
time. 


4, Internal register tests. 
Registers internal to the COPS are tested here. 


5. Keyboard reset function. : | 
The keyboard is reset by the COPS and the correct reset code is read. This 
value is compared to the reset code that was sent to the COPS on powerup. 


Clock functional tests. These tests are for LisaTest and LMO stations. 
These do a complete functional check on the COPS and associated timing. 

keyboard reset cooe tests. These tests are simple functional tests that do 
not change any data (for example the date and time) and do only a basic check of 
the COPS. These tests are for all test areas, LisaTest and LMO and Boot RON. 


Iw exeae test. ; | 

This test trys to assure that the WM chip and associated hardware on the 
CPU board is functional. It 1s a minimal test of this floppy interface since it 
e done whether or not a disk 15 in place and must assume that there is not a disk 

nplace. 

1. (Tobe determined) 

2. (To be determined) 

3. (To be determined) 

Basic tests for Te . These tests are tests of the WM sate: and assume 
that the drive does not have a’diskette installed, these tests are for CPU board 
LMO stations and for the Boot ROM. 

Extensive tests for the Ii circuit going to the drive Itself. These tests 
are for the IWM circuit and es that a ative and disk be installed, see tne 
next test description. = ss 


* Floppy disk tests. 

These tests verify the proper ey of the floppy disk drive and 
comolete the testing of the IW and interface hardware. Since a floppy drive and 

disk are required to completely test the IW circuit, these tests are required 

- inthe LMO station andLisaTest. Because of aField Service requirement that the 
floppy drive be completely debugged from the Boot ROM, a subset of these tests 
will be in the Boot ROM as space permits. 

1. (Tobe riERs 

2. (To be determined 

3. (Tobe determined) 


+ 


Basle tests For LMt7 ang interface. These tests are tests of the IwN circuit 
and may nave to assume that the arive is good, these tests are for CPU board LMO 


stations. | | , 
Extensive tests for -arive ftsert These tests are for the drive itself and 
may have to assume that the [WN circuit is good. 

Note that there may be cases where both the IWM interface and the drive 
itself are unknowns. The tests must take this into consideration. But note that 
the best way to troubleshoot this case is to swap out the floppy drive (a simple 
procedure) and then re-run the test that has failed. Tnis narrows the failure 
down to either the IWH circuit or the floppy. Once it is narrowed down then the 
tests for that Speer tis circuit or Gevace can be run to isolate the failure 
further. 


RS232 tests. . 

These two serial ports. are tested ianei very for the most common modes 
that they will be used in. The ports own internal loopback feature helps to 
ensure a more complete test. : 

Port AandPortB. — . 
A) Register read/write tests. 
B) Local loopback tests. — 

a) Asynec test. 

b) Sync test. 

Cc) SDLC test. 
C) External loopback tests. 
0) Interrupt test. 


A+) Read/Write Test — 

This first module writes an SAA. gata sateen to an “interval ‘read/write 
register in Port A and then reads it back and verifies its integrity. It tnen 
repeats the process with a $55/pattern. Both patterns are then tested on port B." 
The main purpose of this test module is to verify that it is possible to access 
this device (i.e. it exists in valid address space). A special bus error trap is 
provided to retain control of the Pores in the event that the device is not 
readily accessible. ; so 


B) Internal TrasniityReoeive Test : 

Here, the SCC device is tested for its ability to transmPt and receive in 
asynchronous mode. The test is performed at 19200 baud using the internal loop 
Coullt in), therefore no external drivers are being tested as of yet. The cata 
format is 8 bits, 1 stop bit, internal baud rate clock x16 mode, and odd parity. 
All possible 8 bit characters are used and each is checked for data integrity 
upon reception. Also after each character 1s transmitted the program waits for 
- the “all sent" flag, data received flag, and then checks for “special error 
conditions such as framing, parity, and overrun. 


C) External Transmi t/Receive Test | 

Here, the SCC device is tested for its ability to transmit and receive. The 
test is performed at all baud rates using the external’ loopback connector, 
therefore external drivers are being tested here. The data format is 8 bits, 1 
stop bit, internal baud rate clock x16 mode, and odd parity. All possible 8 bit 
characters are used and each 1s checked for data aise: upon reception. Also 


after each character is transmitted the program waits for the "all sent" flag, 
data received flag, and then checks for special error conditions such as 
framing, parity, and overrun. 


D) Interrupt Test. 

Tests the ability of the Scc device to ‘interrupt the system processor. 
First a dumy interrupt routine is setup to handle the interrupt. This routine 
resets the source of the interrupt in tne SCC and restores the normal vector in 
the vector table. Adefault timeout 1s then set in the baud rate timer in the SCC 
and the device is programmed to interrupt the system processor on timeout. The 
system then begins a count and patiently awaits the expected interrupt. 


fasic tests. These tests are the basics done to assure the ports work 
properly and will not drive any test data out the ports. Tnese use the internal 
loopback feature and the latch that disables data going out the rear ports. 
External tests (required logoback). Tnese tests check the port in more of a 
‘natural’ manner, in the way it is normally used. 


MMU tests. 

If a memory board is installed then this test 1s done to verify that the 
board can be mapped as the user requests. 

1. Stuck-at tests, verifies that there are no stuck- at-one or 
stuck-at-zero memory locations. 

2. Address uniqueness test, verifies that each memory location is unique 
and that no addresses are tied together. 

F 3. Memory aia tests, these Tests look for other types of memory, 

failures. 


Basle pattern & Hunctionél tests, These tests are done by the Boot-ROM and 
mist pass for the boot process to continue. It may still be possible to do a 
auto-boot procedure on detailed diagnostics... - 

Extensive tests. These tests help to isolate failures tothe chip. If space 
requirements’ prevent the Boot ROM diagnostics from isolating the failure far 
enough then these more extensive tests will do that task. These tests also do 
more extensive memory tests on the HHU RAMs. 


Parity Circuit test. 
This test verifies the memory pari ty check and generation circuits.. 


1. Parity detection test. ; 

Tnis program tests the capability of the CPU board to write wrong parity, 
(for diagnostic purposes), the Parity bit RAMs, and the failing memory address 
register. od is a ave ee used in alca to assure that data stored in 


memory is correct. The common method of using parity is for the computer to 
count how many bits are on at each memory location and then add one if necessary, 
in the parity bit, to make it an odd number or leave the parity bit set to Oif it 
already contains an odd number of bits on. Example: 
Odd parity example: , 
Memory Data Parity bit #bits set 
10001100000. G0 3 cS 
10001110011 1 ; 3 7 


Using the capability of the CPU board to write wrong parity, the number of 
bits set above would be 4, parity bit set to 1, and6, parity bit set to 0. 


When the computer senses that a memory location being used contains the 
wrong parity bit, it assumes that the memory data has been changed in some way 
from the data that was written. When this error occurs the CPU board tells the 
computer about the error and also which memory location contains the error, this 
address is in the Failing Memory Address register. 


This test uses the special circuit on the CPU board to set the wrong parity 
on some locations in memory, the parity detection circuit 1s disabled at this 
time. Parity detection is then enabled and the memory locations are read. Each 
location which has been set to the wrong parity is verified to generate a parity 
error and the failing address 1s checked. 


2. This is a test of the parity memorys. These RAMs are tested in a special 
way since they must be ‘written’ dnd read‘ indirectly. These extended tests 
are very long because of the method that must be used. 


3. Bus Timeout. | | 

The last test is that for the bus timeout circuitry. If illegal memory, 
memory which is not in the system but still within legal address range, is, 
accessed then a bus timeout will occur. The computer must recieve a signal pack” 
each time it addresses a location in memory. If the memory is not there then no 
signal is returned to the computer and the computer would sit and wait-for the 
memory. To prevent the computer waiting forever, a timer is used to limit the 
length of time that the computer will wait. 


Baste functional tests. ‘These tests are in the Boot ROM and assure the basic 
operation of the functions described adove. | 
«  &xtensive tests. These are very extensive tests to determine parity 
circuit memory errors along with parity circuit errors. 


# 


Main Hemory tests. 

These tests performa quick check of "the memory .. An optional extensive 
memory test 1s available thru the boot device code. 

1. Stuck-at tests, verifies ‘that there are rio. stuck-at-one or 
stuck-at-zero memory locations. 

2. Address seals test, verifies that each memory location 1s unique 


and that no addresses are tied together. : 

3. Memory pattern tests, these tests 100k for other types Of memory 
failures, 

fasle tests. These tests reside in the Boot ROM and consist of tests in two 
Classes. The first class are ‘Stuck-at' and ‘address’ tests that are very fast 
and are run every time the system is booted up. The second class are ‘memory 
pattern’ tests that eo ey run a long time and are optional thru the Service 
mode. 

Extensive tests. These are additional tests wnicn run more ‘exotic’ 
patterns. These tests aré loadable thruLisaTest or an Auto-boot diskette. 


Additional MMU tests. : 

A functional test of the MHUs operation ls done to assure that what goes 
into the MMU control , in the way of an address, eee has the desired effect. 
These are more extensive ' adder‘ tests. 

1. MMUfunctional tests. . . 

The MMU also can allow limited access to areas of memory. Memory can be - 
specified as read only, so valuable information will not be destroyed, as write 
only, or as both read and writeable. 


To convert a logical address, one which vill work as described above, toa 
physical address, areal address that a memory board will recognize. Aseries of 
adders are used as shown below: | 


Logical addressbits — | | 
<~-Segment Address--><--7¢-Segment offset--> <---~-- Displacement---> ‘ 
23 22 21 20 19 1817 16 15 14 13 12 11109 87654 3210 


The Segment Address addresses a register which contains a pnysicalr (real) 
address, this is called a Base address. This physical address contains valid 
bits in the bit 9 to bit 20 range, this 1s enough to access 2 Meg bytes of memory. 
This value is then added to the Logical address bits 0 to bit 16. The resultant 
address is the corresponding physical (real) address. See the example below: 


+ 


pated address b 1ts 
<--Segment Address---> <--- Segment Offset ~~~-><---Displacement---> 
23 22 212019 1817 16 15 14131211109 87654321 
XX MX XX KK XMM KOK KK MK KM MX RX 
\ ate ce > / 
i ee | ma . ae 
~ \_ SOR es da (Segment Base Register) - \ 


| | 

\ ' 

20 19 1817.16 15 1413 12 11109 | 
(Add eee ae ae MS MEK wen Es 


these . Ne * x xX xX KX KKM NRK KXMKXK KK XY 


(result is the physical address 
Xx KX X XX KX KX XX XXX XXX XX 


There are adders for bits 9 thru 20, bits 17 to 20 nave an adder because of 
the possibility of acarry bit (16) naving to be added. There are three physical 
adders used, one for bits 9 to 12, one for bits 13 to 16, and one for bits 17 to 20. 


1. Adder tests. : 

The first section of this test verifies that all three adders are working. 
sequence inthe standardtestis: 

A) Low Adder Test (bits 9-12 of the logical address). 

‘B) Middle Adder Test (bits 13-16 of the on pte address). 

C) Upper Adder Test (bits 17-20 of the logical address) . 


2. Adder Carry Generation Test. | 

The next section of the test assures that an adder carry will propagate from 
one adder to the next. 

A lower adder is setup with the base register value $F and then a location in 
page $1 is accessed. So inthe address translation process, acarry is generated 
from the lower adder into the middie adder. This method is used for the middle 
adder to the upper adder test. 

A Long Carry test is done to assure that when the lower 2 adders are at $FF 
and page $1 is accessed that a carry will propagate from the lower adder to the 
middle adder to the upper adder. Thus in the address translation process, SFF + 
$1 = $100, generating acarry into the upper adder. 

The Flip Adder Carry test is designed to propagate a carry tnru all the 
adder bits. The base register is set to value $AA and page $56 1s accessed. Since 
SAA + $56 = $100, acarry is generated thru all bits. The base register is next 
set to value $55 and page $AB is accessed. A carry is generated into the upper 
adder by the addition of $55 arid $AB (= $100). 


3. The last test is for Access violation. 

The MMU has the. capability to limit access to specific areas of memory for 
only specific purposes. “The following conditions are setup and the limit . 
detection is verified for each one. 

; a) Read/Write main a: Reading and writing toa memory location is 

alright. 

b) Read Only main memory . Any writing to this section of memory will not be 
Sllowed, it will be flagged as anerror, 

Cc) Read/Write stack. Calling procedures which place information on the 
“stack and remove information from the stack wi11 work alright. 

qd) Read Only stack. Calling procedures which place information on the 
stack will not be allowed, an error will 06 flagged. Pulling information from 
the stack will be allowed. | | 


Built-in Hard Disk port Mae: | | 
This test 1s dia to be run in the Boot ROM if the hard disk is ready at 


boot time, or if the hard disk was selected as. the boot device. Other tests are 
designed as described below. 

Non-aestructive tests, These tests are for use with the disk’s internal 
diagnostics. Tne disk nas the capability of returning the status of it's own 
internal diagnostics. - The disk may also have other internal diagnostic 
Capabilitys that can be used without destroying any data on the disk. 

. Extensive destructive tests. Tnese disk tests are destructive in nature 
and would be used only after all information has been backed up off of a 
suspected bad disk. . These ~ also be run ona new disk before the Office System 
is backed up onto.it. 


Expansion card diagnostics. 

Each expansion card has the capability of having its own diagnostic ina ROM 
that is part of that card. If adiagnostic resides on the card then it will be run 
as part of the normal Gaot. process, by the Boot ROM. If the card is also 
bootable, then if the card fails it's own internal diagnostic test it is made 
into an ao boot device by the Boot ROM and the user will not be allowed to - 
boot from it 


Speaker voltage tests (test card). 

Designed to run from LisaTest or. from an LMO station. This test will be 
ldentical in function as that onLisai.O systems. It basically tests the volume 
control and frequency of the signal that is sent directly to the speaker. While 
it can not tell if the speaker 4s working, it can not find a broken wire from the * 
board to the speaker or a torn speaker, it can tell if the circuit that generates 
the speaker voltages is correct. , 


I 


‘MAC sanawiten t tests -s-(test card). > 

Designed to run fromLisaTest or from anLnd station. These tests are reall y 
enhancements to the ‘Speaker voltage tests’ described above. This test 
verifies that there 1s proper control of the sound signal by doing ‘real time’ 
measurements of the speaker voltage. 


‘ 
, : ; 4 : * : 
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Contrast voltage tests (test Say , 

Designed to run from LisaTest or fron an LMO station. This test will be 
identical in function as that onLisa1.0 systems. This tests that tne contrast 
voltage can be changed in'a smooth manner from a dark screen to a very bright 
screen, within the required ee ee 


Mouse port tests 3 (test card). 

Designed to run from LisaTest or from an LMO station. This test will be 
identical in function as that on Lisa 1.0 systems. This test uses the I/0 Port 
Test card to simulate a mouse. AlL features of the COPS neEeeeyy related to the 
Mouse are tested here. 


Keyboard port tests ( test card). 

Designed to run from LisaTest or from an. LNO station. ‘This test will ve 
identical in function as that on Lisa 1.0 systems. This test uses the 1/0 Port 
Test card to simulate a keyboard. The COPS/keyboard interface is tested by 
sending the COPS a series of keyboard reset codes. This tests the timing of the 
keyboard interface and also verifies that the COPS can properly recieve serial 
key codes from the keyboard. 


DHA functional tests (test card). 

Designed to run from LisaTest or from an LHO station. This test will be 
identical in function as that onLisa 1.0 systems. This test uses the famous ‘DMA 
Test Card’ to verify that the OMA circuit works properly in the system. 


C.ItonPrinter test. | . 

Designed to run from LisaTest. This test will be identical in function as 
that on Lisa 1.0 systems. This is a confidence test of the printer and verifies 
all printer lis those ebialle used and eal others. 


. QumePrintertest. =| 

Designed to run from LisaTest. This test will be identical in function as 
that on Lisa 1.0 systems. This is a confidence test of the printer and verifies 
all printer fue those al used and all others. 


t ; ; oy ‘ oa 


House interactive test. | | 

Designed to run from LisaTest. This test will be identical in function as 
that on Lisa 1.0 systems. This test is designed to test thé Mouse for slipping, 
bumps and dents in the molse ball, and button bounce. It also checks movements 
and measures the amount of pulses that the COPS has recieved. 


Keyboard interactive test. 

Designed to run from LisaTest. This test will be identical in function as 
that on Lisa 1.0 systems, This test is designed to look for bad keys in the 
keyboard. These bad keys consist of key bounce, sticking keys, dead keys, and 
keys that give the anak aoe back to the system. 


Floppy disk controller card test. 

No 1oQ0DaCK required. This test is similar to the diagnostic that will 
be built-in to this card's boot ROM. It does a test of the card with the 
assumotion that something is connected on the other end and that ‘something’ 
must not be damaged. 

Logoback required. This test is really a comilete test of the board. 
Loopback capability is required to do acomplete test. This card is currently in 
design and test specifics have yet to be defined. 


Two-port card test. — 

No logoback required. This test 1s similar to the eres that will 
be builtin to this card's boot ROM. It does a test of the card with the assumption. 
that something is connected on the other end and. that 'sometning’ must not be 
damaged. The two main devices, 6522s, are the main target of this test. 

Loopback required. This test 1s really a complete test of the board. 
Loopback capability is required to do a complete test. What this test's main’ 
purpose is, is to check tne port connections and do a continuity test of the 
lines from the 6522 devices out to the card's external connectors. - 


” 


AppleNet cardtest. | > 
No L0OD0aCK ‘red. Tobe defined. 
Logaback required, To be defined. 
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Checksum calculations 


| Expect first and next to last locations in incoming registers. 


[ Initialize sum value, clear fall flag. | 


| Initialize location pointer to first location. 


Checksum calculation loop. | 
[ Read location data and ad to sum. | 
Rotate sum value left by one bit. | 


At last location et? | 
| Yes 


Increment address read 


Read last data for the expected checksum. 
[Checksum equal to last location value? 
Oe eee gs 


Set fail flag&exit 8 ff . 


Exit 


Edit date: 08/03/83 


This program does s chacksum test on any area of memory. 
Inputs: = 


a0 First location 
al Last location 


it oH 


dO = Expected chacksum 


> 

; Outputs: 
3 di = Actual checksum : 
Cc 


heckSum ot i 
ele.1l dil pelear: for chacksum. use’ 
wl add.w (a0 )+, 1 jraad location and add fe sum : 
rol #1,d1 ' grotate to catch multiple bit errors 
cmpa.t a0, al . ; loop until done , 
bre.s @1 a = 
move.w (a0 )+,d0 _ yExpected checksum word | 
ets : : . 


Timer #0 Test 


Write mode register at $004007. «««s(‘<‘ésélt é*CSt Counter mode 
Load counter #0 at $00400i ft | BCD counter mode 
Read counter #0 at $004001 


Load both bytes ss st Read both bytes 


: ~ Read only LSB byte 

Load only LSB byte. ; 3 

Load onlyMSB byte Read only MSB byte 
Initialize chip 


All placed in mode 2. 
All low bytes written to 0, disables counting & tums Off interrupt fee 
All placed in mode 0. 


‘Basic register test. 
LSB register test. 
Write test value to LSB. 
Read value from LSB & compare. 
Abort test loop on failure; = = 
MSB register test. 
Place counter in mode o 


Write LSB to max value, aah time to ao other steps efore MSB decrements. 
Write MSB to test value. | 
Latch counter value. a —— | 
Write LSB to stop counting. | ax @ ' 
Read latched count and compare MSB to expected. : 
Abort test loop on failure. : 


re 8 


‘Mode 0 test. 


_ (0) Interrupt on terminal count mode. — 
| Set Binary test flag, Clear BCD flag. | 


Place counter in mode 
Write LSB to stop any counting. 


Interrupt routine. 


| Increment interrupt counte1 


(enable interupts | | 


a eo Third time in here? 
If any interrupts then re-write counter to Mode 0 ik 


Yes No 


Wait, is interrupt still there? 


Wo Yes | 
| . 
ae Terr want singe 
| Init software loop counter. — ods off 
| Init interrupt flag to not happened. | Fatal error Write mode reg tc 
| | | | disable Interrupt. 
| Write test valuetoLSB. | 2 Tie 
Write rest of test value to MSB. ; Disable interrupts 


| 


Loop until software timeout or interrupt has nappened. a with interrupt error. 


Interrupt happened OK] =—s—i“(t‘é Software tineout 
| Latch current count | fading interrupt | 
Check actual time against low limit. 
| Above < \ Below 


« | Check actual time against high limit. 


Compare latched count to expected range. | 


1% of Tange SN] Disable interrupts 
Any more test values? 3 
ee ee Fatal error 
| Disable interrupts | 
_ | BCD flag set? 


) 
|_| Clear Binary Flag |/ % =| "88 
‘| Set BCD test flag} |. 


Mode 1 test. 


(1) — One-Shot t mode. | 


| Place coun ounter ‘ih mode L nary mode. 


Interrupt routine. 


eel 


| Increment interrupt counte 


| First time in here? 


acm intemits| 


| If any interrupts then re-write ‘counter to Mode 1- 
[ walt, 1s interrupt still there? 
Disable interrupts | 


Init software loop counter. 
Init Interrupt flag to not happened. 


write test value to LSB. 
Write rest of test value to MSB. 


| Set fl ne 
ee 
Disable interrupts 


Exit 


Fatal error Exit with interrupt error. 


Loop until software timeout or interrupt has happened. 
Fading Interrupt happened Software. tineout 


. - or 
Latch current count Interrupt stayed on. 


Check actual time against low limit. | . 
| Check actual time against high limit. 
| Compare jatoned « count to expected range. 7 : 
| ee , fe : “Gut of range “| Disable interrupts } 
“Any more test values? | | 


Fatal error 
Yes | No 


% [ Disapie interrupts 


Mode 2 test. 
(2) Rate Generator mode. 
- Interrupt routine. 


| Place counter in mode 2, binery mode. | Mincrement interrupt counter 
Pibceikele Aum a a , Latch counter 
‘ | Enable Interrupts. {| «=. | 
, | <<. = Read counter values. | 


E any interrupts then re-write counter to Mode 2,LSB to max 


[ walt, is interrupt stil there? | 
mol ____+\ves 


No 


Disable interrupts , 
| | Exit Disable interrupts | — 
Init software loop counter. =f 
Init interrupt flag to not happened. 


Fatal error 
7 | | Exit with interrupt error. 
Write test value to LSB. 
write rest of test value to MSB. | oa 
| a —— —~ Loop thru 3 timey 
| Loop until software timeout or interrupt has happened. Tait “LDntew happoned 
Fading Interrupt happened Software tineout Flag a | 
| Read last latched values Interrupt stayed on. 
| Check actual time against low iimit. | 


Compare latched count to expected range. . 
OK ‘Out of range 
ro | : i 


“Jj. Disable interrupts | ° | 
Any more test values? Pataca 
Yes | No i 


| Disable interrupts: 


[ piace counter in in mode 3, binar) move. Mode 3 test. 


(3) Square wave rate generator 
- [Enable interrupts. 


If any interrupts then re-write counter to Mode 3, LSB to max. | Interrupt routine. 
+ walt, is ater still | ‘there? Increment interrupt counte 
a2: Yes eae 
Disable interrupts Laten counter 


Read counter values. 


Past half way? | 


Yes 


Init software loop counter. | _%... 
Init interrupt flag to not happened. Fatal error 


Write test value to LSB. 
Write rest of test value to MSB. 


| Loop until software timeout or interrupt nas nappened. 


Fading Interrupt happened | oftware tineout 
or 
| Read last latched values | Interrupt, stayed on. 


Check actual time against low limit. | 


software timeou a 


Exit with interrupt erro) 


| Compare latoned count to expected range. 
; | ox  Qut of range 


Disable interrupts 


Any more test values? Fatal error 
Yes | No 
‘ Disable interrupts. 


Mode 4 test 


(4) Software Triggered Strobe 


eee Sesh Senet ans Interrupt routine. 
Place counter in mode 4. — 
Write LSB to stop any counting. 


D eaeaeaeetianaeall 


Increment interrupt counter | 


First time in here? 


No 


Enable Interrupts. 


If any interrupts then re-write counter to Mode 0 | 


Wait, is interrupt still there? | 


No | X\ Yes 
| | Disable interrupts Disable interrupts 
Init software loop counter. a: | a | 
‘Init —— flag to not reppened Fatal error Exit with interrupt error. 


| Write test value toLS&. 
| Write rest of test value to MSB. 


Loop until software timeout or internipt has happened. | 
Interrupt happened OK} | Software aaa: 


Latch current count i incarrpt ) 


; 4 


| Sek sual ine apie ew uni | N > 


ae latched count to eiected range. 


| | = | zor Disable interrupts 
| Any more test values ues? a a 
sie (adl' a ; Fatal error 


_| Disapie interrupts | 


MMU Basics 


Accessing MMU registers 


| 


23 22 21 20 19 18 17 16.35 1413 12 11.10 9 8 7 Cs 54321 0 


a ol 


Segment 1 ae e 0g 9g 0 


0 for Base 
8 for Limit 


Base registers | | ! 
| | 
af 4 - i 11 10 9 8 7 6 5 46 3 2 1 «0 


cag : Sage 
SP EXP RO STK a Base address 


Data mask of SFFFF is usec. 
| 


Limit registers oan — an 


1S 14 13 12 11:10 9 8) 7654321 o | 
Not used — Suit vatue 


Data mask of $00FF is used. es : 


Stuck-at tests. 


| =e abgmet ones 


Loop thru all 128 segments 


‘Write to all ones, $FFFF 


Read segment, mask for data byte. | — 


| Compare read value masked $FFFF 
Hatches ——\\No Hateh 


| Fatal Error 
’ — Determine which byte in error 
for chip replacement information. 


) Info saved for Service loop. 
write to all zeros, $0000 on 


| Read segment, mask for data byte. | 
| Compare read value to $0000 | . 


Matches | _ No Match 


Fatal Error ; 
a Determine which byte in error 
fe for chip replacement information. 


—— " Info saved for Service loop. 
All 128 segments done? POP 


_ | Yes 


" [all 8 contexts done? | | : 


Read/write tests. 


[Loop thru all patterns | Note: Orie of the 
. ar a patterns is an address. 


-. Loop tnru all 8 contexts | 
Loop thru all 128 segments 
write to pater Sopp 


| All 128 soumnents done? 


No / Yes 
| All 8 contexts done? | 
‘Wo | Yes 


Loop thru all é contexts | 


‘Loop thru Sea = ‘segments 
| Read segment, mask for only lower byte, $OOFF 


Compare read value to $0000 
Matches} = No Match \. Fatal Error | : 
} . Determine which byte in error 
sey for chip replacement information. 


Tau 128 ts done? - Info saved for Service loop. 

Nes ; 

All 8 contexts done? 
| Yes 


Yes: 


1 agxa 


Control 
Exp, SP,.R/W, Stk 


Carry 
10 ee : 
Add limit valuei .. 
to requested addr |. 
and carry 

13 to 16 


1Kx4 
Linit Value 


7 


Add Base value 
and carry 


17 to 20 


Actual address 
17 to 20 


TA keg do 
‘| Base Value 
19 akx4 

Base Value | 

. fe —~ 
1Kx4_ 

| 


Carry 
3 ii Carry 
Add limit value. 


to requested addr 


9 to 12 


1Kx4 


| Linit Value 


8 


Add Base value 
and requested addr 
and carry 


13 to 16 


Actual address 
13 to 16 


Carry 


9 


Add Base value 
and requested addr 


Actual address 
9 to 12 


9 to 12 
f-3 . _ ". 
Requested address . Actual address 
1-8 omcarsimsinde 1-8 


1 to 6 tested by Ram tests. 
Failure is either 1Kx4 RAM, LS245. taacee iver: or + 9373 0006. i, 
Displayed error will show RAM, LS245, and then L$373 (in that order) »- 


7 to 9 tésted by functional tests, addresses actuelly accessed must agree with 
those expected. 


The failure will display the 283 Adder. 


* 


10 to 11 by functional tests, limit fallures and legal values are both used to 
determine if the adders are working correctly. | 
The failure will display the 283 Adder. — + 


Cael 


LISA 1.75 MMU 


my | 
| | 0s | 
Da | 4 EXP 
2 . | DO1 


Ad - 
At 
| A2 
AS 
Aa 
65 
AG 
| A7 
AB 


AO 
Al 
A2 
AS 
A4 
05 
AG 
A7 
AS 
A9 


BBBERRRBBEB 


errr re Tae Tae te ee 


Edit 


date: 08/04/83 


‘ i é : 
SESS SS MATAR A SASS SSL ST AeA Sea HANS SORA A AAR Aa AAAEAe eee AARcAsARaKAnTsasAeAAEeAT AE; 


MMU REGISTER TEST PROGRAM 


FILE 


a ' | 
NAMES: 


MMURAM. HOR. TEXT 
MMURAM. ASM. TEXT 


FUNCTION: 


This is a test of the MMU RAMs on the memory board for Lisa 1.75 


| ; 
This test is expected to run from either ROM or from LisaTest. The ROM 


version is a conditional assembly subset of the LisaTest version. 


| 
Tasts MMU registers by doing cead/urite, address, and a maving 
inversions test. Errors are collected and writtan to memory for 
later inspection. ere: 


After initialization, any traps will be caught and all registers 
are saved For perusal by user. However, during the testing when 
the SETUP bit is on, any exceptions will cause the exception vector 
ta be fetched fram the BOOT ROM and the S00T ROM exception rautine 


will be executed. 


LOGIC TESTED: 


TECH 


STEP: 


The follawing logic on the CPU board is tested: 
MMU registers for contexts 0, 1, 2, and 3 
The following MMU logie is not tested: 


Other MMU adder and limit check ing logic 
MMU cantext O segments 0, 1, 126, and 127 registers 


OPTIONS: 

In addition:to the three stendard tech-mode opt ipne, this. program 

supplies the ale ins e ; 
| 


$0010 (16): 


$01: 


ERROR CODES: 


$00: na error % i 


HAROWARE: 


CPU board. 


THEORY OF TEST OPERATION: 


CAUSES OF ERRORS . o*  g 


Mast problems caught by this test will be RAM bit errors; grass 
problems will be caught before this test is sever irun by the 800T 
M tests; occasionally a problem may cause the program to hang — 
or go back to the ROM ~- note that any exceptions which occur during tasting 
with the SETUP bit on will cause the 68000 to fetch the exception 
vector from the BOOT ROM, 


ORIGINATOR: George Cossey 08/04/83 - “4 


MODIFIED BY: 


TQ BE DONE: 


s=SSsaS5 


Register usage: 


.dQ 
_ di 
d2 


PEPE TeTETETITETTOCCCTITOCOTOTO LTTE CETTE Ti TTereerrerrere 


Cantext (0 to 7) 20 


- Gase address baing tested 
Segment in cantext (0 to 127) wl - Limit addfess baing tested 
Write data (lawer & upper _ 32 + ao 
Read data (lower & oar a3 - oe Se Hy ; 
: a4 - Parameter address, passad 
aS - Seratch 
Seratch oy ; - 2, @6 + Seratch 
Scratch OE Soe ae 


Stack 


Pertr rrr errr rrrrtrrertrrrrirrrrrirrCrtrt rrr rr ererrrrey Veretrr rrr rrr rere. Fy 


5 = : : 


alee ees ooo ae net ten ne ene el a RR Ae SANT SE Ge Am He ma sername tes manne 


. PRO 
. ORG 
BSTART 
; Save vide 
bsr 


3; Mave test 
bsr 
jmp 


VIDEOSTART 


tst 


; Save all of MMU RAM data. 


lea 
bse 

1 
lea 
elril 
move. | 
move. | 
move. | 

; Pattern t 
a) All 
elr.t 
bsr 

; b) Ail 
move. | 
bsr 

7 

; c) Che 
move. 1 
bsr 


; d)}) Inverse checkerboard, 


move. 1 
bsr 

H 

; @) Add 
bsr 


; fF) Moving Inversions. 


bsr 


lea 
bsr 


; Mave back ta main memory. 


+ jmp 
3 

JUMPBACK 
tst 


bsr 


rts 
@ 


wee et wes ee ee ws 


SAVEV.ID 
lea 
lea 
lea 
mova. | 


@l move. | 
adda 
emp. | 
bmi 
rts 


; Move test to video memory, 


MOVETOVIO 
laa. 
lea | 
mova, | 


aio mave. | 
emp. | 


(C  MMUREG, 0 
$0800 


o memory area. 
SAVEVID . 


into video area. 


MOVETOVIO 
(a4) 


$00003E00 


BMMUSAVE, a4 
FULLMMU 


ests. 

zeros (Q's). 
d2 

PATTERN 


anes (1's). 
RSEFFEFFFE, d2 
PATTERN 
ckerboard. 


#SAAAASSSS, d2 
PATTERN 


#$SS5SSAAAA, d2 
PATTERN 
ress. 


ADDRESS 


INVERSIONS 


BMMUSAVE, a4 
RESTOREMMU 


JUMPBACK 


ry 


$00003F00 


; Restore video memory area. 


' VIDRESTORE 


Save video memory before test is moved up there 


BSTART, a3 
BEND, a4 
BSAVE, aS 
$00000800, a6 


(a6 )+, (a5 )* 
#4, a3 

a4,a3 

al 


BENO, a4 
BSTART, a5 


$00000800, a6 ~ 


(95)*, (06 )* 
a4,a5 


(LiseaTest version only) 


4 Turn of f SETUP bit 3 


pStart of fest 


(LisaTast version only). 


; Jump ta VIDEOSTART in video memory 


« 
. RMSAPAASTST SAAS IATS ARS HASTA ASAARAARE SAAT S SAS ARIAT AsSRAS Ress Saas s 


;Turn an SETUP bit 


(LisaTest version only) 


'yLocation ta save MMU information 


{ 
eee 7 
;Cleat failed RAM flags 


; Restore all of MMU RAM data. (LisaTest version anly) 


jlLacatian toa i ie MMU informatian 


(LisaTest version only) 


SBSATSVITAVASTARK SAAR SARARITAKAKRARACHRSARRHBASLAAAABAVARAASAKSAASILTAsSas 
’ 


(LiseTast version only) 


Sor ee er ch ps oil epee scirchca ap esha 
TS AIRASSSAAAASTRARASAASAAAC HK AAMAS HRTHKRTASARVALACCLARABezAs 


SRSA Ser Assess assess 
i 
| 


pend of test | 
; Area to save test in 
;Video memory test area 


;Move from video to save area es 


;keep track of size oS 
;dane all of test? . 
pee ee 16 


ah 


Jann Ene, 


exits with transfer address in A 


;Stare of teste . 


; i Video memory test ares 


"3 Move. from main memory to video, mamory,.. oo 


;dane all of test? 


pie dieremmierte sl 1c Seq omeana tes pp Ooh. g eBehs 3 ae eee 


bini Gl 


pee NG ua = oe j 
; lea VIDEOSTART, a4 ;Location of where to branch to 
lea BSTART, aS ;Stert of test 
suba “a5, a4 s (VIDEOSTART ~ BSTART ) 
adda #$00000800, a4 i-+ (Start in video memory) 
rts 


Save all of MMU RAM date to area pointed to by A4 


FULLMMU 


; Set context, 0 to 7 
clr.u do 

a1 bsr SetContaxt 
clriw dl 

@2 bsr SetSegment 
move. al), (a4 )+ 
move. wW Mar 


add.w #1,d1 
cmp. w #128,d1 
bne @2 
add.w #1,d0 
cmp. w #8,d0 
bna @l 

rts 


7 


; Cantcext 


; Segment 


;Reed and save. Limit register value. 
;Read and save Bese register value! 


Next segment 
yy.dane all? 


;Nexe context | 
;«.done all? 


Restore all af MMU RAM data From area at A4 (in FULLMMU saved format ) 


RES TOREMMU 

; Set cantext, 0 to 7 
elriw dQ 

@1i bsr SetContext 
elrow dl 

@2 bsr SetSegment 


’ 
' 
' 
Vv 


move.b al }+, (a3 
move. Ww beole test 
add. w #1,d1 

cmp. w #128, d1 
bne @2 

add.w #1,d0 

cmp. w #8, d0 

bne @l 

ets 


;Context - 


; Segment 


‘;Restore Limit register value 


;Restore Base register value 


;Next segment 
;..done all? 


;Next context 
.dona all? 


Save video memory Pefoce test is moved. up there 


IDRESTORE 
lea ‘START, a3 
lea BEND, a4 
lea BSAVE, a5 
move. 1 $00000800, a6 
1 = mova.! (a5 )+, (a6 )+ 


adda #4,a3 
emp. 1 a4,a3 
bmi @l 
ets 


;Start of test 
send of test 
j;Area to restore fram 


;Video memory test area 


, i ‘ 


;Move fram Save/area to video 4 


;keep track of size 
;done all of test? 
se ne 


aa ln 


' 
+ Pattern to wrfte comes in inside of ward d2. eee 
; This pattern is written ateecneting to each ram “location. | 
‘ ; : 
PARIERN - L 
; Loop thru all contexts and segments ened write test pattern a 
osr WPAT : 
. + 
P Loop thru all contexts and seqments, read and omer data. 
elr.w do ;Context 
al bsr. SetContext 
clriw di ; ; Segment : 
@2 bsr SetSegment 
mave.b (al), d3 ;Read Limit register : 
émp.b d2,d3 pees BaMe aa written? « ba 
beq @3 Fees YOR, CONtinue 
bsr BADLIMIT 36..nG,- Flag failure . 
’ +; vm 
a3 move.w (a0),d2 ;Read Base register 
cmp. w d2,d3 hb... 58me as written? i 
beq ‘a4 + yes, continue . 
bsr BADBASE j+..m0, Flag failure ; 
a4 add.w #1, di ; Next. saghent 
swap d2 
bsr SetSegmant ee . 
move.b (al),d3 ;Read Limit register 
cmp. d2,d3 +. Same af written? 
beq a5 ios YS, Continue 
bse BADLIMIT “s...ma, flag failure 


#5 move.w (a0), d3 


emp. w d2,d3 
beq 36 
bsr BADBASE 


j Read Gase registar. 
pH... Same as. weitten? 
ae cant inue 
‘s ona, flag failure 


Page 


ow «Bl, di j;Next segment EP eh; “ 
-w =: #128, di y..done all? 
@2 
Ww #1,d0 jNext context 
. Wd #8,d0 : ;..dane all? 
@l . ; 


; Write a pattern « 
WPAT . 
elr.w dO ;Contaxt 
al bsr SetContext i 
clr.w dl ; Segment. 
a2 bsr SetSegment : | 
mave.b d2,{al -~Weite ta Limit register 
move.w d2, in : ;Weite to Base register 
add.w #1,dl1 ' 3 Next. segment 
swap d2 
bsr SetSegment fl 
mave.b d2,(al ;Write ta Limit register 
move.w d2,({aQ ;Write to Base register 
swap , : ; ; 
add.w #l1,di jNext segment ‘ 
cmp. w #128,d1 . j..done all? 
bne @2 
add.w #1,d0 ;Next cantext 
cmp. w #8,d0 +..done all? 
bne @l1 
rts 


i , 
; Address test. 

ADDRESS 

1. Write addresses from low ta high 


; Read all registers and verify 


Loop thru all contexts and sagments and write test pattern 


elr.1 d2 ;Address pattern 
clriw do ;Content : . 
@1 bsr SetContext 
clriw dil ; Segment 
a2 bsr SetSegmant ; 
mave.b d2,(al) _ gWrite to Limit register 
add.w #$0101,d2 ;Next address 
move.w d2,(a0) ;Write to Base register 
add.w #$0101, d2 sNext address 
add.w #1,d1 ;Next segment 
cmp. uw #128, d1 ¢..dane ali? / ~ 
bne @2 ; ne 
add.w #1,d0 pNext context 
cmp. w #8, d0 ¢..done all? 
*  bne @1 * 


‘ Leop thru, all contexts and segments, read and compare data. 


clr. l d2 ;Address pattern *.- 
clr.w dO {Context : i : 
93 bsr SetContext- a és : ie : 
elr.w . di ; Segment: = 
a4 bsr SetSegment 
move.b (al),d3 ;Read Limit register 
emp, b d2,d3 joe. Same as written? 
beq 95 pene QOS, Continue 
bsr BAOLIMIT gee, flag failure 
395 add.w #$0101, d2 sNext address 
mave.w (a0),d3 ;Read Base register — 
cmp. w d2,d3 pie. Same @s written? : 
‘beq G6 j+.. yes, Cpntinue ¥ tae « 
bsr BADBASE ‘gacen0, Flag failure . . 
36 add.w #$0101,d2 ;Next address ,. 
. add.w #1,d1— ;Next segment a 
cmp. us #128, d1 j-.dane all? ne 
bne @2 
add.w = #1, dO jNext context ae 
emp.w #8, d0 ;..done all? 4 . 
bne al i“ 
2. Write addresses From high to law = * ‘ 


Read all registers and verify | 3 | 


Loop thru all contexts and segnents and write test pattern 


elr.l d2 ; j;Address pattern 
move.w #7, d0 Une ;Context . 
all ose SetConteaxt. . oo 
" mave.w #127,d1 “Segment | ¥ 
912 -bsr SetSeagment, , 


move.b d2,(al} , ;Write ta Limit register: 


91S 


@16 


E 


ei wee ee we ee ee ee ee ee ee ee ek et ee we ee eee en ee eee wet we ee we ee ee we ee ee ee we es ee en ee ee ee we ee ee ee ee ee we ee ee ee ee we 
re ee ee ame wee ee 


1. 
2. 
3. 
4. 
S. 


6. 


move.w d2, (a0) 
add.w #$0101, d2 
sub. us #1,dl 

bp] @12 

sub.w #1,d0 

bal @1l 


Loop thru all contexts and segments, 


elrit 
move. w 
bsr 
move. w 
bsr 
move.b 
cmp. b 
beq 
bsr 


add.w 
move. w 
cmp. w 
beq 
bsr 


add.w 
sub.w 
bpl 
sub. w 
bpl 
rts 


: : : : said posemncnarsiv nnn i —wansapemryneiianenamnsstgni eevee a 


| add.w $0101, d2 ;Next address 


;Wreite to Gase register. 


>Next address 
;Next segment 


jNext context 


read and compare data. 


d2 ;Address pattern 

#7,d0 ;Cantext® 

SetContext 

#127,d1 — ; Segment 

SetSeqment : 

(al), d3 ;Read Limit register 

d2,d3 tee. 30me as written? 

@15 pee Y@8, Cont inue 

BADLIMIT passa, flag Failure 
#$0101, d2 ;Next address 

(a0 ), d3 ;Read Bese register | : 
d2,d3 fe... S8me as written? ae 
@16 $..<Y8s, Continue ’ 
BADBASE jee-no, flag failure 
#$0101,d2 _. gNext address 

f1,di ;Next segment 

@14 : 

#1,d0 ;Next context 

@13 


a renee vara mnrerunerayertannatettnerentataatat eenten innate tte emOvSttr Arner areata enemas 


xamp la: 


For aver 
Two (2) 


Moving Inversians test. 


Law ta high pass 
Write background pattern 


y (1) addr, low to high, do Read/Ver ify, Weite comp lemamt, Read/Ver ify 
passes, for avery other address (First even, second add) 


da Read/Verify, Write complememt, Read/Verify . 


Four (4) passes, for avery 4th address (first even Per ane odd,... ) 


do Read/Verify, Write complamemt, Read/Ver ify 


Eight (8) passes, for every 8th address (first even, second odd,... ) 


do ReadWerify, Write complamamt, Read/Ver ify 


oe UN 


Weite ba 
For aver 
Two (2) 


til step count equals one half the size of the memory. 


High ta low pass 


ckground pattern a 
y (1) addr, high te bee vils Reader ify, Write complememt, Read/Ver ify 
passes, for avery other address (First even, second odd) 


do Read/Verify, Write complememt, Read/Ver ify 
« Four (4) passes, for avery 4th address (first even, “second odd,...) 
da Read/Verify, Write complememt, Read/Ver ify 


5. Eight (8) passes, for every 8th address (firse even, second odd,... ) 
do Read/Verify, Write complememt, Read/Vaer ify 
6. until step count equals one helf the size of the memory. 
Step (1) "(2) (4) 
Pass 1 1 2 1 2 3 4 
Loc 0 xx ux Pe! 
1 xx mx : ux 
2 “x xx xm 
3 ex at. | ; xx 
4 aM aM xx ‘ 
Ss xx am ; “x 
6 x xx _ «x 
7 *™M xx «x 
8 xx xX “x 
9 x ux fo wx as tis 
10 RM ) ee : > me of " 
11 nx xx : ; xx - 

Total passes = 10 for 1K RAM, + 
Increments: 1, 2, 4, 8, 16, 32, 64, 128, 256, 512 ‘ 
Increment = x . > 
Passes = x ; 2 ae , : 
Expect = $FOFO All anes and all zeros for each 1Kx4 RAM 
Compl Exp = SOFOF , 2 : 

Write all of MMU to SFOFO 


Total Pass Loop 


Pass loop ois ; — ; Pee ene 
Read data. “ , oe oe an en ee a 
Compare to expect and,.log failures. og Baa 7 ae 


ae 


— 


: Write compi expect data. 
Read data. 
Compare to expect and log failures. 


nerve eR 
a a maT TE GE RS GRC CEE SRT DS TE ETE DEG GS Oe TS SEES RE SED TTS EES 
ee ER OTR 2 


1 
H 
’ 
} 
, 
1 
; 
’ 
, 
1 
i 
' 
‘ 
; 
, 
’ 
H 
, 
? 
, 
‘ 
’ 
7 
; 
3 


now we star 


DECREMENT 
move. | 
bsre 


mava. | 
move. Ww 
lea 


al move. w 
; Pass laap 
mova, | 


a2 bsr 
sub. w 
bre 


sub.w 

; End of Pas 
cmp. w 
beq 
move, | 
move. w 
sub.w 
add. w 
bra 


33 sub. w 
. emp, Ww 
beq 


aor. | 


Add 
Chack 


Ssatasesazerasesets 


End of Pass loop 
Passes all done? 


increment. to address under test 
if out of bounds ; 

.No, go to top of Pass loop 

.Yes, Continue 


Decrement pass counter 


* 


.No, Start address at next top address and ge te top of Pass loop 


. Yes, Continue 


Zero all of MMU 


NVERSTONS 

move. | #$FOFOFOFO, d2 
bsr WPAT 
move. 1 #asSOFOFFOFO, d2 
move.w #10, d6 
lea INCRE, a3 

@1 move.w (a3), d5 

; Pass loap 
clr. l d7 

@2 bsr ITEST 
add.w dO, d7 
cmp. w #1000, d7 
bne @2 
sub. w #1,d05 

; End of Pass lade 
cmp. w #0,d5 
beq @3 
elr.l d7 
move.w (a3), d0 
add.w dQ, 'd7 
sub. w d5,d7 
bra @2 

@3 sub.w #1,d6 
emp.w #0, d6 
beq IDECREMENT 
eor. | aSEFFFEFFE, d2 
adda #2, a3 
jmp al 


mm 


t it all over, 


#SFOFOFOFO, d2 
WPAT 


SSOFOFFOFO, d2 
#10, d6 
INCRE, a3 


(a3), dS 
#999, d7 


ITEST 
dO, d7 
@2 


a1,d5 

s loop 
#0,d5 
@3 
#999, d7 
{a3 ),d0 
dO, d7 
d5,d7 
@2 


#1,d6 
#0,d6 
@4 


SPP FFFFEFFE. d2 


Decrement Total Pass caunter 
End of all passes? 
.No, complement both Expect Date, Ca to top of Total Pass Loop 
va wes continue. 


dinnnd cnddbwnRWalvedbetdenneebxaehncasuhesunswedaududuasRdceass; 


;Write all of MMU to SFOFO 


380th patterns 
; Total Pass Loop 
sIncremunt table 


Increment and pass counter 


; Current Address 


N 


;Add increment to address under test. 
;Check if cut of bounds 
;--»No, go to top of Pass loop 
-Yes, Continue 
;Decrement pass counter 
;Passes all done? 
3... Yee, Continue 
;Stere address at top. again 
jie. inerement amount 


:Decramant Total Pass counter 

;End of all passes? 

5... Yee, continue. 

j--.No, complement both Expect Data, “ 
-.Mext increment value. 

;Go to top of Total Pass Loop 


“4 i 
L 


only decrementing the address this time. 


i J 
;Write all of MMU to $FOFO 
; Bath patterns. 
;Total Pass Loan - 
sIncrenment table 
;Decrement and pass caunter : 


f 
;Current Address 


;Add increment to address under test 
-No, go to top of Pass loap , 
«. Yes, Continue 
; Decrement pass counter 


eeeeees all done? 

.Yas, Cantinue 
}Stare address at tap again 
jess increment amount f 


| 
; Decramant Total Pass eounrer 
pEnd. of all passes? 
pe. Yas, ‘cant inue. 


;...No, complemant both Expect Oaca, 


rage 


Wh 


ence etreR SRE ote nea RAPE SSO SS PSE SN AE ‘ 


LTEST 
32 bsr 


move. w 
cmp.w 
beq 
bsr 


a3 swap 
MOVea. UW 
move. w 
cmp. Ww 
beq 
bsr 


a4 swap 
move.b 
i emp.h 
beq 
osr 


@5 swap 
move. b 
move. b 
cmp.b 
beq 
bsr 


a6 swap 
move. Ww 
rts 


INCRE » WORD 


if location <> written data then flag as bad RAM 


02 has written data, 


#2, a3 gj... MGnt increment value 

@1 3Go to tap of Total Pass Loop 

d2 :Zera all af MMU 

WPAT d , 

GetAddress ;Get address based on d7, in a0 and al 
(a0), do ;Read Gase data. 
dO, d2 ; Compare ta axpect and lag earioren, 
@3 ; 

BADBASE | 

d2 :Now complement data 

d2, (a0) We ite comp lament expect, data. 

(a0 ), dO Read Base data. 

do, d2 ; Compare to expect and log failures. 
@4 fs 

BADBASE | fe 

d2 ;Now original data nT 

(al), dO Read Limit data. 

dQ, d2 ; Compara to axpect and lag failures. 
@5 

BADLIMIT 

d2 ;New complement data 

d2, (al) ;Write complement axpect data. 

(al ), dO ;Read Limit data. 

dO, d2 ;Compare to expect and lag failures, 
@6 

BADLIMIT 

d2 ;Now original data 

(a3), dO 

1, 2, 4, 8, 16, 32, 64, 128, 256, S12 


: : 
| 


D3 has read date 


Do whole word for base register. 


BADBASE 
move, Ww 
eor.w 
move. w 
and. w 
beq 

lea 

move.w 


@l move. w 
« and.w 
beq 
lea 
move. Ww 


@2 mova. w 
and.w 
beq 
lea 
move.w 


33 movél, w 
and. w 
beq 
lea 
move. w 


i 
a4 ets 


; Oo lower byte anly For Limit register 


BADLIMIT 
move.b 
eor.b 
move.b 
and.b 
beq 
lea 
move, w 


91 move.b 
'  and.b 
beq 

lea 
move. w 


d3,d6 
d2,d6 

d6, d7 
aSO00F, dé 
@l 
BASE1, a6 
#$0123, (a6 


d7,d6 
S$00F0, dé 
G2 
BASEZ2, a6 
#$4567, (a6 


d7,d6 
#S0F00, d6 
@3 
BASE3, a& 
8$89AB, (a6 


d7, d6 
#$F000, d6 
@4 
BASE4, a6 
#SCDEF, (a6 


LIMIT1, a6 
#$0123, (a6 


d7,d6 
S$FO0,d6 
92 


Find Falling bits 
) a. @ 
) 
, 
) 


plower OK? . 


gi. im 


LIMIT2, a6 
#$4567, (a6) 


on eneenemece he SRT ER a a ER IR SRE AR a enter phat sai Aen ele 


fi Sets to requested context, number a to 7 in’ ‘do 


SETCONTEXT : a 
and. w #$7,d0 - me iMake it legal 
"  tst.w $9003800 | VSEGO to a 0 
tst.w $0003A00 ;SEG1 to a 0 
tst.w $0003C00 - ;SEG2 to a.O 
comp. w #0,d0 a ; : . % 
bne -@l é , 
bra @10 - 
@l cmp. w #1,d0 « . 
bne @2 ; a 
tst.w $0003900 +SEGO to a l 4 
. bora @10 : 
@2  cmp.w #2, d0 7 
bne @3 : . ; 
tst.w. $0003B00 ;SEGI1 ta al ‘ cea Ly 
bra. @10 se E 
@3 emp. w #3, dQ ; 
bne 4 
tst.w $0003900. -;SEGO ta a l 
tst.w $0003B800 ;SEG1 ta al 
bra @10 . _ ; » 
@4 tst.w  $0003000: ;SEG2 to a 1 
cmp. uw 2#4,d0 « 
bne @s 7 eo 
bra @10 ; © ; 
@S emp.w #5, d0 ‘ . jee. & sy * 
bne @6 : 
tst.w $0003900 ;SEGO ta a l 
bra. 10 
@6 cmp. w #6, d0 : 
bre @6 : ; 
» ‘tst.w  $0003B800 ;SEGL to a 1 | 
bra @10. 
@7 tst.w $0003900 - = ; SEGO to al 
_tst.w  $0003B800 ;SEG1 to a i 
@10 rts 
; n ene neretpeetitarserneentnrareserentn- tsp psn enrso renee rRA ASIEN 
Sets segment address for Limit register in a3, sagment raquested in. di. 
; Uses dS as seratch : 
SetSegmant 
move. 1 #$010000, al ;Address of First Limit ragister 
move.w di,d5 t : 
and. | 8$7F,d5 ;Make legal 
swap dS ;Now in bits 15 to 21 . 
asl. | #2,d5 ;Now in bits 17 tn 23 : 
adda d5, al ;Final address 


move. 1 al,dS 

or, l #$008000, d5 
move. 1 d5,aQ 

res 


cua dneatntaiiemeananetememanaatanaieamemeaanenanaemmntatanamareesanaeimemeninatenienteenmenamndaangenaateimmneamaiaannecintamanammaaimmmnenmeneenenemenneatnetememamenneimememmenenenameanmaneaiatateanemneeaeammeenamameemanaeneeremed 


Get address based an d7 


GetAddrass 


Returns addresses in aQ and al 

clr. d6 ;Current counter 
elriw dO ;Cantext 

al bsr SetCantext 
elrow dl 3 Segmant 

@2 bsr SatSagment F = 
cmp. Ww d6,d7 ;At requested? 
beq @3 Doe 
add.w #1,d6 
add. w #1,dil ; iNext segment 
cmp. w #128,dl1 ;..dane all? 
bne @2 : ‘ 
add.w #1,d0 ;Next context 
emp.w #8,q0 ;..done all? 
bne @1 

33 rts 


; Table of bad RAMs, 0 maans good, other means failure 
; (Table must be grouped for clear to wark praper ly) 
BASE4 . WORD ie) ;Qase register bits 12-15 

BASE3 « WORD 0 ;Base register bits 8-11 

BASE2 . WORD (0) ;Base register bits 4~ 7 

BASE1 . WORD me) ;S8ase register hits O- 3. 
LIM{IT2 .WORD i) jBase ragister bits 4+ 7 
LIMITL .WORD le) ;Base register bits OQ- 3 


BMMUSAVE 


? 
BEND 


BSAVE 


4 


END 


; The data follawing is ‘the current. state of the MMU before the test, 


; This is the end of the test. that is copied to video memory 


; This is the start af the saved video memary area. 


% 
‘ ” 
. 
@ 
. 
7 
‘f 
” - i é 
«& 
», 
a < * 
ote 
. 


“MMU Functional 


: : Acairning physical starts at x 
~All memory is assumed written to 0. 


All limits set to maximum. 
All bases set to a special data aréa in the last video page. 


_Map MMU to start location Qatx< 


, | write physical location x to test value $1234 
| Read logical location 0 thru MMU. 


| | Compare read value to expected, same? | 


Ves | - | 
[ write logical location to 0 thru Muu, | | Was data read $0000 ? | 


. Yes | 3 No 
Read physical location, ae] | Flag as memory error 
Compare read value to expected, same? | Read all of memory looking | 
| for value of $1234 


Not Found Found 


| Flag as MMU adder error Calculate adder error 
which would cause this. | 


Data area in last video page is set to a specific pattern, 


The data area pattern is read thru all seqrent addresses. 


Sum 2° 


Sum 1 


Sum 2 


sum 1 


| ee 4,COut $s00080000 

Se 5 
»~ $00020000- 
- $o0010001 


Base _ 


$00070001 
$O00F 0001 


‘Base address adders. 


Physical | 
7 $ooo00000 
_ $QOO0FFFF 
SOO0OFFFF 


00040000 soo000000 
00030001 $O060F FFF : 
$00070001 SOU0DFFFF | 


$00030001 


$00010000 
- $00000001 
— $00010001 


Base 
$00008000 


$o00000000 


$00008000 


$00004000 
$oo000000 


$00004000 


$00002000 
$00000000 
$00002000 


Base 


$o0000800 
$oo0cc000 


$00001000 
$o0000000 
$00001000 


00000000 — 
SOQ00FFFF 
SOQOOFFFF 


poceteea 
SOO00F FFF 
- SO000FFFF 


Physical 


~ $ooon0000 
~ $o0008000 
-sononso00 


_ $00000000 
so0004000 
00009000 


~ $opo00000 
$00002000 
$00002000_ 


sopo00000 
$00001000 
$00001000 
Physical 


$n0000000 
soo000800 


sum 2 


sum 1 


$00000800 


$00000400 


$oo000000 


$00000000 


¢oo000200° 


$00000000 
$c0000200 


- gooooo000 


$00000100 


$aooq0a00- 


$00000100 


so0000800 


~ $o0000000, 
- $o0000800 
gooo00400 


¢ooooo0ng =| 
- gnooooz00 
¢00000200 _ 


$00000000 
soo000000 | 
~ $o0000100— 
$00080100_ 
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Edit Date: 04/12/83 


! 
SSttsa22teraseesssz= Jhsdcdseusdeduwedeladeuwecesewisasecesudeunckesaudaueswanedawun 


FILE NAMES: < 
TWOP. HOR. TEXT 
TWOP, ASM. TEXT 
TWOPORT (code file) 


FUNCTION: 
Verify as much of the TWO Port .Card as possible. 


LOGIC TESTED: 
Partions of the Two Part Card, as described belauw. 


TECH OPTIONS: | 
The following options are supported (1-3 are standard ): 
0: normal program execution 
1 loop until NMI (error count kept in ERRCNT, loop count in. OUTCNT 
2: loep INCNT number of times (or until error )( loop count iin OUTENT 
3 loop on test until error (loop count kept in OUTCNT), 
exit test at error without resetting: cause .af error 


10: Loop an sending data thru PAQ-PA7 from port A to port & 

Li: Laop.an sending data thru PAQ-PA7 from port a to port A 

12: Loop on sending from P87{CRES) to PBO(OCD) from port A to port B 

13: Loop on sending from P87(CRES) to Pag OGD from port B to port A 

14: Loop on sending from PB4(CMD) ta PBG(PARITY) from port A to port 8 
15: Loop on sanding from PB4(CMD) ta PB6(PARITY) From port B to port A 
16: Loop on sending from PB3(R/W) ta CB1(CHK) from port A to port B 

17: Loop an sending from P83(R/W) to CB1(CHK) from port B to port A 

18: Loop on sending fram CA2(STRB) to PBI/CA1(BSY.) from port A to port B 
19: Laop an sending from CA2 eras to pai LAlfesy from port B to port A 
20: Laop an sending From part B to test Port A parity circuit. 

2i: Loop on sending from port A to test Port 8 parity circuit. 


32: Loop at end of test, for program debug use. 
33: Ignore any timer test failures, gather -data for debug use. 


ERROR CODES: 


;++ Flag for document axtractaor 


Step: 
1 - Initial test setup, hardware and software. 
2 - Check data lines to Two Port Card. 
3 - Check interrupt capability of Two Part Card. 
4 - Port A 6522(VIA) register test. 
S ~- Port B 6522(VIA) register test. 
6 ~ Port A 6522(VIA), Timer #1 tese. 
7 = Port A 65S22(VIA), Timer #2 test. 
& - Port B 6522(VIA), Timer #1 test. 
9 - Port 8 6522(VIA), Timer #2 test. 


10 - PAO-PA7 data lines thru loopback Lanadevar test, both ports. 
11 - PB0,PB7 data lines thru loapback connector test, both ports. 
12 - PB4,P86 data lines theu loopback connector test, both ports. 
13. - PB83,CBl data lines thru loopback connector test, bath ports. 
14 ~- CA2,PB1 data lines thru loopback connector test, bath ports. 
1S - Port A Parity circuit test. 

16 - Port,B Parity circuit test. 


Errors: : 

0 - no error 

1 - Could not locate Two Port Card in any expansion slot. 
2 - Data read is not the same as data written to register on VIA. 
3,7- Card could not supply an interrupt (possibly timer #1 also)... 
4 - 6522(VIA) Timer failure. Timer too fast, time is tao short. 
5 - sceatvik Timer failure. Timer too slow, time is too fast. 
6 - Data line PAOQ-PA7 failed wraparaund test, port A driving port B, 

er no Loop-Back connector. instel led. 

7 - Data lime PAO-PA7 failed wraparound test, port B driving pert A. 
8 - OCD(PB80) or RESET/(P87) failed, port A driving pert B. 
9 - OCD(PB8O) or RESET/( P87) Failed, pore B driving port A. 
10 - CMO(PB4) or PARITY(P86) failed, port A driving port B. 
11 - CMD(PB4) or PARITY(P86) failed, port B driving port A. 
12 - Interrupt accurred when none expected, an Port A. : 
13 - Interrupt occurred when none expected, on Port B. 
14 - Expected interrupt did not occur on port B. 
15 - Expected interrupt did not occur on port A. * 
16 - STRB(CA2) or BSY(PB1) Failed, port A driving port B. 
17 - STRELCAZ | or BSY pel} failed, port 8 driving port A, 
18 - P81 on port 8 failure BSY ),, ‘port A driving port B. 
19 - PB1 on port A failure BSY }, port A driving port 8. 
20 - Bad data (PAO-PA7) during parity test of Port A. 
21 - Parity circuit for port A gives wrong summation eeeurt (CB2 ). 
22 - Bad data (PAQ-PA7) during parity test of Port A. 
23 - Parity circuit for port A gives wrang summation result (CB2 ). 


++ Flag for document extractor 


HARDWARE: Work ing LISA, T/0 Port: ‘Test Card (cables connected or nee: 


t 


THEORY OF TEST OPERATION: 


Register ReadWrite test of the VIA (6522). This tast verifies that most 
if the registers in the 6522 are read/write-able. This test 
does not test all registers since soma registers are read 
or write only. 

Details: 
a) All registers are initialized as follows. 


i 
i 


Timer test for the 6522. Timer #1 and Timer #20 ‘are tested to assure that 
interrupts are generated st the end of the programmed time. 


WRITTEN BY: REV 1.0 G.Cossey 01/21/83 


re ee ee ee ee ee ee Te Te Pe Te Te Te Te Te Te i Ta Te Pe ree Ty 


MODIFIED: REV 1.1 G.Cossey 04/12/83, now uses library routings. Removed 
code ta run on APPLE IIT, now only From LISA. 
TO BE DONE: . : 
‘ soossesaneasaesseeuazamanassaenuausansessszsscaeazesesaeshsosemessssasaeaness; 
. ABSOLUTE 
PROC TWOPORT, 0 
MSSSTSVPASOVSA*SSRVaAssesazagsea2222B° 
; TRAP AND ERROR VECTOR LOCATIONS 
H STRAPS AASTESAAR A SSS BART VST TVI23aa;5 
BUSVCT . EQu $0008 ; bus error 
ADRVCT .EQU $000C ; address error 
ILLVCT .EQU $0010 3 illegal instruction 
AXXVCT .,€QU £0028 ; future traps (emu lator )} 


FXXVCT .EQU  $002C . 
H SaN Sree ERBERAsssatszssassaszass2: i 
; INTERNAL INTERRUPT VECTORS 

H MBPS SSSERSSSRRSSS SS TTSPAIAsBWASSBZwsBsAs 


LEVIVCT EQU $0064 
LEV2vCT .EQU $0068 


floppy, parallel port, VTIR 
keyboard interface VIA 


ws Ok On ee we we en we es oe 


LEV3VCT .EQU SOO6C slot 2 

LEV4VCT .EQU $0070 slot i 

LEVSVCT .EQU $0074 slot OQ 

LEV6VCT .EQU $0078 RS$232 chip 

NMIVCT .EQU  $007C NMI 

é SRRSRARSSUTSAAAIC STS TV SSSTORRBIsAAs 

; now, the local equates... ; 

; SRVRASSSSASSISS RT SSR SAS ALEBBSAAs 
equ $00 ; port B 
equ $08 port A 
equ $10 ; Date direction of part a 
equ $18 port A 
equ $20 1 Counter how) 
equ $28 ; high ) 

TILL equ $30 ;T1l Lateh (low) 

TILH: equ $38 ; high) 

T2CL equ $40 ;T2 Counter 

T2CH equ $48 

SHR equ $50 ;Shift ragister 

ACR equ $58 5 Aux control 5 

PCR equ $60 ;Per ipheral contral 

IFR equ $68 Ine. flags a 

IER equ $70 ; interrupt anable 

oree Keyboard COPS use. 

KBOVIA * equ $fedd80 ;Bease address for keyboard VIA 6522 

KIER equ 29 ; interrupt enable 


: SARSRARASARAATA ST AABReassAaresaessas, 
; START - PROGRAM ENTRY POINT ; | 
; SSMABATARSSSRAST STA ST ABALAASIRAA; i i 
ORG $0800 ; wa are normally loaded at $800 (we try ta be 
; relocatable, though ) *. 
START BRA.S  STARTI ; skip around parameter area 
REVDATE .WORD 11,0 . ;Revision number (use decinal numbers: for Pascal ) 
; . x. > xx, SQ REV 1.0 is 10 here. 
label "TECH" is location START +6 ($806 ) 
note ~ parameters are word-length (2 bytes) 


TECH .WORD O ‘non-zero values select eeen ede options 


ee ee DO eee 
AHDDoOOo” - 
er OOD 
QonaD>owD 
xrrPro. 


the next three parameter words are used only 
if the tach mode is neg eer g: 


‘ERRCNT .WORD 
| ourent . RORD 

INCNT .WORD 
RESVO .WORD 


exit parm. - setae number of errors encountered 
exit parm - holds number of passes completed 
antry parm - halds number of times ta execute prog 
reserved for later expansion 


wan eh ee we oP we ee we wk ee ee eet 


TERRCNT .EQU 
TOUTCNT .EQU- 
TINCNT .EQU 


Man QOAGOo 


neve te nee ee RL AAA A A ES TO “TEC EP ITESSE PI FUEATOU TTS: RRA tat aR Serene i {= ~innprinaree eeeadnaeRtineen AaPuieeteraamRSRRe tena —-w 


pice en aa ae 


. SR SRPMS SSSSS IS SASSER SLE RABARARs, 


INPUT PARAMETERS - START + $010 


INBUF3 
INBUF 4 
INBUFS 
INBUF'6 
INBUF 7 


; RESULT BUFFER - START + $020 


{SSSR SS ORS SST SSSABSRE RST AACsseawam: 


DREGS 


. WORD 
» WORD 
. WORD 
. WORD 
- WORD 


san 


. WORD 
. WORD 
. WORD 
» WORD 
. WORD 
. WORD 
. WORD 
. WORD 


; AREGS - START 


AREGS 


, 


. WORD 
. WORD 
- WORD 
. WORD 
. WORD 
. WORD 
- WORD 
. WORD 


oooco0ocecoeo 


eesefoose 
Rare Oe ae ecoo0conao 
> 
oO 


oooo0o0oco+ 


Oe er er er er er er 


eo we we ue we ee we ee 


man ee te ee on ee wee ue 


; EXCEPTION INFO ~ START + $060 
; GROUP 0 


EXCFC 
EXCADR 
EXCIR 


; GROUP(s) 0 & 1 


EXCSR 
EXCPC 
OLDPC 
OLOSP 
OLDSR 


’ 


- WORD 
. WORD 
. WORD 


- WORD 
. WORD 
. WORD 
- WORD 
. WORD 


; SSSSBRSSRASCTIST SRS SSS TOEABVARA*ABAASS- 


; NOW CONTINUE WITH THE CODE =; 


; SSB SSS SSP SIS SRSAAS TV AATREBABRBZAs 


STARTL 


@i 


; STS SS ARISSSSRSATATAIRSTATLAASEARs 
INBUFO .WORD : 

INBUF1 . WORD ; - 
INBUF2 .WORD : 


LEA OLOPC, AO 
MOVE.L (SP )+, (A0) 
LEA QLDSP, AO 
MOVE.L SP, (AQ) 
LEA START, SP 
LEA OLDSR, AO 
MOVE.L SR, (AO) 
ORI.W #%0700,SR 
LEA MISC, AO 
MOVEA 80, Al 

LEA QLOVCTR, A2 
MOVEQ 864,00 
MOVE. L. aes 
MOVE.L AGO, (Al )+ 
$UBQ #1, 00 

aGT el 

LEA GUSERR, AO 
MOVE.L a@, BUSVCT 
LEA ADRERR, AO 
MOVE.L A&G, AORVCT 
LEA TLLERR, AO 
MOVE.L AQ, ILLVCT 
LEA LEVLINT, AQ 
MOVE.L &@,LEVIVCT 
LEA LEV2ZINT, AO 
MOVE.L a0, LEV2VCT 
LEA LEV3INT, AO 
MOVE. Al, LEV3VCT 
LEA LEV4INT, AO 
MOVE.L AO, LEV4VCT 
LEA WEVSINT, AO 
MOVE.L &@, LEVSVCT 
LEA REVEINT, AO 
MOVE. aa, LEV6VCT 
LEA MMI, AO 
MOVE.L aa, NMIVCT 
CLR.L 

CLR.L Of 

CLR.L D2 

CLR.L 3S 

CLR.L D4 


currently unused 


AO a 


step number 
error code 


obliterated restoring environment 
stack pointer 


function cade 
address 


instruction register 


save return address, set SP 


status register 
program counter 


to top af 


new stack 


then save it alsa ’ 
place our stack right below the program 


; Save status reg value 


;Disable interrupts 


of unexpected exceptions 


;also save incoming vectors” 


; save incoming vectors in array OLOVCTR 
First set all vectors to point to miscelaneous 


exception handler . . 


then set up special vectars for the more 


common exceptions . . 


; Clear all the registers except A7 


initialize interrupt and trap vectors in case 


CLR.L DS 
CLRLL 06 
CLR.L 07 
MOVEA.L DO, AO 
MOVEA.L DO, AL 
MOVEA.L DO, A2 7 
MOVEA.L DO,A3 © 
MOVEA.L. 00, A4 
MOVEA.L DO, AS 
MOVEA.L DO, A6 
BRA MAIN ; and branch to the main routine 
: RIBAS AR SSS SAI TAISR SR SE ARES ATSB: 
; DEFAULT EXCEPTION HANOLERS 3; these exception handlers just sat an errar 
j SSR RN aes erases RIT reser esas zsaR; code and exit . ee 
MISC MOVEQ #$50, 07 ; miscellaneous exceptions (traps, divide by 0, 


BRA.S  EXCP ; etc. ) 
BUSERR MOVEQ #$51,07 ; bus error exception (bus timeout, invalid MMU 
BRA.S  EXCPO - 3 access) : 
ADRERR MOVEQ $52, 07 3; address error 
BRA.S EXCPO 
ILLERR MOVEQ #$53,07 3 illegal instruction error 
BRA. S EXCP : 


LEVLINT MOVEQ #$71,D7 ; level 1 interrupt (parallel port, vertical 
BRA.S |. EXCP 3 retrace ) 

LEV2INT MOVEQ #$72,07 ; level 2 interrupt (keyboard ) 
BRA.S EXCP 

LEV3INT MOVEQ #8$73,07 ; level 3 interrupt (expansion slot 2) 
BRA. S EXCP \ 

LEV4INT MOVEQ #$74,07 ; level 4 interrupt (expansion slot 1) 
BRA. S EXCP i 

LEVSINT MOVEQ #$75,07 ; level S interrupt (expansion slat 0) 
BRA. S EXCP ' 

LEV6INT MOVEQ #$76, D7 ; level 6 interrupt (RS-232 ports) 
BRA.S EXCP ' 

NMI MOVEQ | #$77,07 ; level 7 (NMI) interrupt (parity error ) 
BRA.S  EXCP 

EXCPO LEA EXCFC, AG ; NOTE A6 IS DESTROYED HERE 
MOVE her +, (AG )+ ; save extra infa far group 0 
MOVE.L (SP J+, (AG )+ 
MOVE (sp J+, (AG )+ 

EXCP LEA EXCSR, AG 
MOVE SP }+, (AG )+ ; save common exception info 
MOVE. L Sete PAB + 


i EXIT. Save current register contents in save area and return to caller 


ORI.W #$0700, SR ; disable interrupts 
LEA OREGS, A6 ; 
MOVEM.L 00-07/A0-A7,(A6) ; push return registers in result buffer 
LEA OLDVCTR, AO ;restore incoming exception vectors 
MOVEA #0,Al : : 
, MOVEQ #64, BO 
@1 MOVE.L (AQ )+, (Al )* 
SUBQ #1,00 
BGT.S ol 
LEA “OLDSR, AO ;Réstore incoming ‘status register 
MOVE.L (AQ), SR : , : 
LEA - OLDSP, A6 ; get back incomming stack pointer 
MOVE. (A6), SP 
LEA OLOPC, AS 3; and program counter 
WMOVE.L (A6),-(SP) 
RTS 
OLDVCTR.. BLOCK 256,0 ;storege area for incoming exception Vactors. 


- INCLUDE lib: COPSCMD. TEXT 
- INCLUDE lib: FINOC. ASM, TEXT 
- INCLUDE TWOP. ASM. TEXT f 3 7 . 


. END , 


ce a a a ES te es ea oie te sacs Sg aaa 


rage 


; Edit Date: 4/1203 


File: TWOP. ASM. TEXT 


NOTE: Refer to TWOP. HOR. TEXT -for program details. 


sossosssassecsssssscsscaceeemeucsesuzumeauessseesuasseesssa2s222asaeeanassazs 

TICKTOCK equ 0 ; Timer counter , . 
TL equ 2 ; Timer 1 happaned Flas 

T2 equ 4 ; Timer 2 happened fila 

KBOIEN equ 6 ; Keyboard VIA interrupt enable value 

SAVEVECTOR equ. 8 ;Interrupt vector address, original 

WhichT imer equ 12 +Flag for timer under test 

CALVIAL equ 14 

CALVIA2 equ 16 

CBLVIAL equ | 18 


CBIVIA2 equ 20 


t 
ParityTests equ 22 
Te a 
: aQ - Seratch dQ ~ Seratch 
; al - Scratch di - Scratch. 
; a2 - First VIA address. d2 Seratch : ; 
M 

| 


a3 - Second VIA address. d3 - Seratch | 
a4 - Interrupt vector address d4 - Seratch 

a5 - LOCAL variable table. d5 - Tech Mode | 
a6 - DEBUG d6 - Step number 
a7 ~ Stack d7 - Error cada 


AIN cler.w = d7 ;Clear errar Flag 


mave.w #1,d6 jInit to step 41 
lea LOCAL, aS ;LOCAL table poinAter 
lea DEBUG, a6 

: wa 
move.b #$00,d1 ;Beat ID looking for 
move.b . #$02, d2 
bsr FINOC 
cmp. w #0, d0 pe. find it? 
beq @105 pee, exit with ‘error ; 
lea INTCARD, al ; Ae 
move, | east. :...addrass of interrupt vector ee ae 
move. 1 2(a3), a4 \ i 
lea CARO, al ;Base address Swe 
move. 1 6(a3),(al) j--.address of VIA ; a a 


adda #$2001, a2 x 
move. 1 a2, (a6) ;for dabug 

move, | ee ; Second VIA fs 
adda #$2801, a3 ‘ 
mave. 1 a3,6(a6) 3; far debug 


i move. 1 (al),a2 iFirst VIA / : Ng : ‘ 


lea a TECH, al 
move.w (al),d5 3Get Tech Mode 


bsr DISABLEOTHER ;Diseble interrupts from other sources 


@1 elr.w d7 ;Clear fail flag. . = 


@cmp- #10, d5 ;See if special tech mode loops wanted 


move.w #2,d6 Deak (ees: #2 

bsr CHECKLINE --sCheck data line connect ion, to auta: 
empi.is #0, d7 : ae errors? reer 4 
bn @10 -exit on apron 5 © 


@102 


@103 


bsr 


lea 
cmpi.w 
bne 
taddq. w 
bra 
addq.w 
' subq.w 


cmp. us 
beq 


cmp. w 
bne 
cmp. w 
bne 
cmp. wt 
bne | 


cmp. w 
bne 
cmp. Ww 
bre 
bra 


emp i. w 
beq 


; Normal exit 


@104 


* 
’ 


e105 


bra 


+ Error axit, 


mave. w 
bra 


#3, d6 
CKINTERRUPT 
20, d7 

@10 


#4,d6 
CKIVIA 
#0, d7 
@10 


#5, d6 

CK2VIA 
#0, d7 

@10 


46, d6 
CKITIMER 
#0,d7 
@10 


#8, d6 
CK2TIMER 
#0, d7 
@10 


#10, d6 
PAQta7 
#0, d7 
610 


#11,d6 
PBOand7 
#0,d7 
610 


#12,d6 
PB4and6 
#0, d7 
610 


#13, d6 
P83andCB1 
#0, d7 

@10 


#14,d6 
CAZandP81 
#0,d7 

@10 


#15, d6 
APar ity 
#0, d7 
@10 


#16, d6 
BPar ity 
80, d7 
@10 


RESTORE 


TECH, al 

#0, d7 

6100 

#1, IOUTCNT( a1 ) 
@101 

#1, IERRCNT(al ) 
#1, LINCNT(al ) 


#1,d5 
MAIN 


#2, d5 

@102 

#0,d7 

@103 

#0, IINCNT(al ) 
MAIN 


#3,d5 
@103 
#0, d7 
@103 
MAIN 


#$20, d5 
0103 


EXIT 


a1,d7 
@104 


pStap #3 

; Cheek can get interrupt fram TWO Port card. 
j..eany errors? 

j.+.@xit on error 


;Step #4 

;Check registers on First 6522(VIA) 
fee. 8ny errors? 
3... @xit on error 


pStep* s&5 | 
;Check registers on second VIA 
Sees any errors? 

«exit on error 


;Step #6,7 
;Chack timers on 6522(VIA) 
jee. any errors? 

3.-..8xit on errar 


;Steap #8,9 
;Check timers on 6522(VIA) 
jes. any errors? 


;Step #10 . 
;Check connection thru cable, PAQ-PA7 
+.any errors? 


;Step #11 
;Check connection thru cable PBO, PB7 
eee any errors? 


:Step #12 
;Check connection thru cable PB4, PB6 
-.any errors? 


;Step #13 ; 
;Check cannection thru cable PB3,CB1 
j.-. any errors? 


;Step #14 
;Check connection thru cable CA2,PB1 
j... any errors? 


;Step #15 
;Check Port A parity circuit 
jes. any errays? 


;Step #16 
peheck Port 8 parity circuit 
-any errors? 


* a 


;Restore any disabled fanct ions 


;test for errors 
j-.. toggle pass counter? 
ges. yas, Increment pass counter. 


;Oecroment test limit counter 


3See if Tech made 1 
3... yos, loop forever 
t 


.3See if Tech mode 2 


$-..n0 7 
oeError accured? 

3-«..Yyes, abort test 

3...test count expired? 5 
«.NG, cantinue. . 


;See if Tach mode 3 - 
tee. Mat 

;...Error occured? 
j-.. yea, abort test 


_;Tech Mode, loop at end of test? 


could not Find card 


1 maga 


A oe ee 


ie 


eth eis NM te ee nll ee le aaa ele ee te Mite As See 
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i 
; Disable interrupts from other sources 


DISABLEQTHER ori #$0700, sr ; mask all interrupts | 
lea KBOVIA, al ;Get Keyboard VIA address 
mave.b KIER(al), di ;...Get interrupt enable for save 
ori.b #$80,d1 y...add in set bit 
move.b en apee lan ;Place in LOCAL table 
move.b #$7f,KIER( al ;Disable interrupts 
rts 
: Perr TTTITITITT I TTITELILITT LLLP LLL CLE LLL ect. 


; Init I/O Port Test Card to known state. 


INITBOARD cir.b dl  sInit to zero 


| 
move.b #$7F, IER(a2)- ;All interrupts of f 
movea.b dil,IlFR(a2 
move.b di, ACR( a2 3 Aux cantrol : 4 
move.b di,PCR(a2 ;Per centrol - 
move.b dil, ORB( a2 ;Ports 
mave.b di, ORA{ a2 
mova.b di, DORB(a2 ; Direction 
mave.b d1,DODRA(a2 
move.b di, TICL(a2 ;Timer #1 
move.b di, TICH( a2 
mave.b di, TALL{a2 ;Latch 
mave.b di, TILH(a2 
{ move.b. dl, T2CL(a2 ; Timer 8&2 
i mova.b dl, T2CH( a2 
mava.b dl, SHR( a2) _ p Shift register . 
mave.b #$7f,IER(a3) ;ALll interrupts of f 
move.b di1,IFR(a3 
move.b di, ACR(a3 3; Aux control 
mave.b d1,PCR(a3 ;Per cantrol 
move.b di, ORB( a3 ;Ports 
mova.b di, ORA(a3 
move.b di, DORB(a3 ; Direct ian 
mave.b di, DORA( a3 
move.b di, TICL( a3 :Timer #1 
move.b dil, TICH(a3 ; ¥ 
move.b di, TILL{ a3 yLatech 
move.b dil, TILH{ a3 : 
move.b di, T2CL{ a3 ;Timer #2 
move.b di, T2CH( a3 
move.b di, SHR(a3) Shift register 
rts 


agian aaa aaa aaa 
Check data line connection to board. 


’ 
H 
5 
CHECKLINE 


bsr INI TBOARD ; 
elr dl ; dl holds data to write to 6522 
Gi move.b ,dil, TILL( a2 ) 3; try writing to the 6522 - 
move.b TiILL(a2), d2 ; and reading back ‘ ' 
cmp.b di,d2 3; was the data the seme? 
baq.s @2 : 
empi.w #$10, dS ;Tech mode, ignore fails? 
beg. s @2 >» 
move.w #2,d7 ;Error, data line to test card is bad,or timer 
move.w #1, d0. ySet fail Flag 
ra.s @3 
@2 addq.b #1,d1 3. go thru all 256 data combinations to check 
‘bne.s ol 3 data line connection to I/0 board 
elriw do ;Set pass flag 
ae rts 


, 7 so " 


“ i scuiude Sebeawue gu akecadeneuaesuenenuuanens dawdundazens teababes cudaweeasduua 


Check can get interrupt From 1/0 Port board. 


CKINTERRUPT . 


osr INITBOARD . : . 
ori #$0700, sr ; mask all interrupts : . 
move.b #$CO, IER( a2) ; enable timer 1 interrugts From parallel-part 
move.b #$01, TICL(a2 3 and set a short (1 usec) timeout interval 
move.b Bed even pe 
NOP pwait a few microseconds for all the interrupt 
NOP ; to be asserted ; 
NOP . 
NOP 

; set up mew default interrupt routines for timer ~ 
clr.w  d2 a clear interrupt flag 
move. 1 (a4),al «get vector address. 
move. | al, SAVEVECTOR( #5) ; ;...Save old vector ; at 
lea INTTIMER, al ;New interrupt vector = fF. “, 


mave.1 al,(a4) ‘pane into vector 


&Z/BLANK: TWOP. ASM. TEXT 


clr.w do : ;set pass Flag, in case we make it thru 


move #$2200, sr . 7 Jet the 6522 interrupt come thru 
empai.w #$03,d2 i did we get the ane bia hdd 
beq.s @1 ; «-Ye@s, good 
move.w #3,d7 _ : ine, error 
move.w #1,dQ set error flag 
. | 


@1 MOVE #$2700,SR ydisable all interrupts and restore interrupt 
mave. 1 SAVEVECTOR(aS ), ai 
move. 1 al, 

move.b #$£40, [ER(a2) 3; turn of fF 6522 timer interrupts 


. SRAM GAS SK Se SRK STEAKS AS STRSESE Re 

; the following is interrupt 

; handler for the preceding 

; routine. 

jp SSS RES TTT SRASST HS aa Res ss saaes2 { 

INTTIMER maveq #$03,d2 + mate the level 3 or up intercupt 
move.b #$40, IER( a2) ; dizable the source 
rte 3 and return 


i 
: MSSM ARS SA SASS SIA Sos S A AIAASSERVIAAASAAKL SSR ST SARSAATKSASAIRALLTCAVAARAEMRSVRBLAATRs 


; Check registers on 6522(VIA) 


CKLVIA move.1 a2, a0 ;Get address of first VIA 
bsr . DOCKVIA ; 
rts 


t Check registers on 6522(VIA) 
CK2VIA mave.l a3, a0 ;Get address of sacond VIA 


bsr DOCKVIA 
rts 
DOCKVIA 
bsr _ INITBOARO 
lea AVAILABLE, al ; Registers that can be tasted 
elr d3 sInit caunter 
@l move.w (al), d2 ;See if legal register 
beq @4 3-..skip if zero 
clr. 1 dl ; dl halds data to write to 6522: 
@2 move. | a0, 12(a6) ;debug 
move.b di, (a0) ; try writing to the 6522 
move.b (aQ),d2 ; and reading back 
move.b di, 18(a6 3 debug 
move.b io eotes| ; debug 
cmp. d1,d2 ; was the date the ‘cama? 
beq. s 83 
cmpi.w 4#$12,dS ;Tech mode to ignore fails? 
beq.s 63 
mave.w #2, d7 ;Error, register wrong 
move.w #1,d0 ; Set fail flag 
bra.s @10 
a3 ° addq.b #1,d1 ; go thru all 256 data combinations ta check 
bne.s @2 ;: data line connection to I/O baard 
clr.b (a0) ;Set to 0 an exit 
; ° 
@4 addg.b #1,d3 jIrfcrement counter; 
adda #8, aQ < 
adda #2, al - ;Next register 
cmp. w #13,d3 
bmi @l 
qir.uw dd ;Set pass flag 
@10 rts 


i 5 
VRAIS VSS CIA SSTAK AA VTAANRATT SS TRAASKATASUSLAALTLRARASRATSAGTSLARAAARERAAAASAASABA 
: \ 


;Check timers an 6522(VIA) 


CKITIMER move. 1 a2, a0 3Get address of first VIA 
bsr CKTIMER : f : ‘ 
rts ; ' 4 


; Check timers on 6522(VIA) 


CK2TIMER mave.! a3,a0 3Get address of second VIA 
bsr CKTIMER > 
rts A 
CKTIMER 
bse —s INI TBOARD 
clrvw do 
mave.w d0,WhichTimer(aS) ; Init to “timer #1 ‘ 


move.b #0, ACR( a0 ) ; Set for one-shot interrupt 
move.b #$C0,IER(aQ ) ; Enable Timer 


; init interrupt address 


ori.w  #$0700, sr ; Disable interrupts 

lea INTCARO, al : : : 

move. | al), a4 

mave.| (a4),al . “one vector address * 


move. | al, SAVEVECTOR( 8) | .Save old vector 


meme cee wnt ne ete oo er RR 2 nee NR eR : ch ae iniecel eee os 


saeco eee nett cnet cetera emer nen eee neeemetetetmemecinmne emma ee rma ee aman rm meres enn OS 


lea 
nave. 
move 


699 lea 
lea 
elrow 
el elriw 


elreow 
move, 
move, 
move. 
hne 
move, 
move, 
bra 


@100 move. 
move. 
bra 


¢ 


ae SOLANA IMU. ASM. FEXT 


ITIMER, al *% sNew interrupt vector 
1 al,(a4) ge.. ints vector ie 
#$2100, sr ; let the 6522 interrupt come thru 
EXPECT, a4 ;Expect times 
TESTVALUES, al - 
d3 : 3; Test value counter 
T1(a5) ;clear happened flag 
d2 ;Inmit counter far logps done 
w 44(al), dO ;Get MSB 
w (al)+,d4 ;Get LSB 
w WhichTimer(aS ), dl 
@100 
b d4,T1CL(ad ;lLoad caunter low 
b Go Mee) ao ;Load upper and start counter 
@2 5 f 


b d4, T2CL( a 
b dO, T2CH( ad 
@2 


_ploaad counter low 


;Load upper and start counter 
;this keeps paths equel | 


;!tll Critical loop, any changes require expect table changes 


; this laop measured at about 1l3us 


@2 cmp i. 
bne 
add. w 
cmp. w 
bp l 
move, 
bra 

; tll End af 
@3 move. 
move. 
cmp i. 
beq 
cmp. w 
bmi 
move. 
cmp. w 
bal 
a4 adda 
adda 


add. w 
cmpi. 
bmi 
adda 
move. 
beq 


clr.w 
@5 mavea. 
MOVE 
lea 
“mave,. 
mave,. 
mave, 
rts 


mave, 
bra 


Timer was t 

move. 

mave, 

bra 
ri 


; Timer was t 
@8 mova, 


: s2S2aS55=285 
@10 add.w 
move, 
move. 


w #0, T1(a5) 
@3 


;check for happened flag 
jee @xit an Flag 

; increment timeout timer 
see. @k1it on avertime 


NOBGBaADO OD 


3 : 
;Dummy far timing saftware loop 
;Continue wait ; 


pe 


; DEBUG save 
; Tech modes to ignore fails? 
;Caompare to low limit 


;Compare to high limit 


;Increment test value counter 


7Oisable Timer #1 
;disable all interrupts and restore interrupt 


;Set error flag >. 


oo fast, time is toa short 


oo slaw, time is too long 


;Next Step number. 


‘#1, d2 
#S7F FO, d2 
@3 
b (a0), dO 
62 
critical loop 
w d2,(a6) 
w Ti(aS),dl 
w #33,d5 
@4 
(a4), d2 
@7 
w 44(a4),d0 
dO, d2 
@8 
#2, a6 
#2, a4 
#1, d3 
w =#22,d3 
@l 
#2, a6 
w WhichTimer(aS ), dO 
@10 
do 
b 4#$7F, TER( a0) 
#$2700,SR 
ANTCARD, al 
1 (al),a4 
1 SAVEVECTOR( a5 ), #1 
1 al,({a4) 
w #1,d0 
@5 
w #4,d7 
w #1,d0 
es 
w #5, d7 
.w #1,d0 
o5 
SRBVIs2a2caew 
#1,d6 
w #1,d0 


uw d0,WhichT imer(aS ) 7 


move.b #$7f, IER(ad ;Disable Timer #1 
move.b &$A0, [ER( a0 ;Enable Timer #2 
bra @99 . + 
SSPRSSISISASSsAesgs SSeS SsSUaAseses2ez2rzeanua : , s 


‘ 


; Interrupt roautina for timer test. 


TIMER 


. @-7 @< wo ar 
N fo) 


mavem. | aQ-a2/d0,-(sp) ; save registers on interrupt entry 
mave.b IFR(aQ0), dO ;See if timer #1 
btst #6, d0 je.-etimer 1 flag .. 
beq ‘@L j..-M0t timer if flag zero 
move.b TI1CL(aO}, dO preset timerl interrupt 
move. Ww eaideTi(as) ;set happened flag 
bra ' @2 a _ tee 
1  btst #5,d0 jis it timer #2 interrupt? 24 
beq 62 j+..n0, -ignore any: others. : 
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eT Per Pett r Tt Perr ter reer er rer rt rrr err er Tet eerr ere err eert tt rrr rrr rr try | 


PAOta7 


move.b ~T2CL( #0), dO 
mave.w #$22,T1(a5) 


movem. | (sp )+, s0-a2/d0 
rte 


a een eee crear «ieee Thee 


;Clear interrupt 


3.+-yes, set Flag to progra 


;Pestore regs an interrupt exit 


;Check connection thru cable 


bsr INI TBOARD 
move.b #$0C,O0RB(a2) - 
move.b #$00, ORB( az) 
move.b #$0C, DORB(s3 ) 
move.b #$08, ORB( a3 ) 
move.b #$FF, DDRA( a2 ) 


cmp.w ° #10,d5 


beg 920 
cmp. w #11,d5 
beq @1 


move.w &a$ff,d3 
move.b d3, ORA(a2) 
nop 


-move.b ORA(a3), dO 


cmp.b d3, dO 
bne Gil 


mave.w #$00,d3 
move.b d3, ORA(a2) 
nop 

move.b ORA(a3), dO 
cmp.b d3, dO 

bne @11 


move.w #8$55, d3 


move.b 43, ORA(a2) 
nop 

move.b ORA(a3), dO 
cmp.b d3, dO 

bna @1l1 


move.w #$AA,d3 
mave.b d3, ORA( a2) 
nop 

move.b ORA(a3), dQ 
cmp. b d3, dO 


bne @11 

elr.w do 

move.b dO, DDRA( a2 )- 
move.b dO, ODRB( a2 
mova.b dO, ODRA( a3 
move.b dO, DORB(a3 
move.b #$0C, DORE( a3 ) 
move.b #$00, ORB( a3) 
move.b #$0C, DDRB( a2 ) 
move.b #$08, ORB( a2) 
mave.b #$FF,DORA(a3 ) 


cmp. w #11,d5 
beq @21 


move.w #$ff,d3 
move.b d3, ORA(a3) 
nop 
mave.b ORA( a2), d0 
cmp.b d3, dQ 

bne $12 


move.w #$00, d3 
move.b d3, ORA(a3) 
nop 

move.b ORA(a2),d0 - 
cmp.b d3,d0 
bne @12 


move.w #$55,d3 
move.b d3,ORA(a3) 
nop 

move.b ORA(a2), dO 
cmp.b d3, dO 4 
bne @12 


move.w #$AA, d3 
move.b d3,ORA(a3) 
nap 

mave.b ORA(a2), dO 
cmp. b d3, dO 
bre 612 


rts 


mave.w d0,d4 
move.w #6, d7 


;P8 2,3 outputs 
;P8 2,3 outputs 
;All outputs 
;Cyele tech moda? 


;Cycle tech mode? 


/ 


;P5 2,3 outputs 
;PB 2,3 outputs 


sAll outputs 


4 


yActual, d3 centains expected 
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¢ 
bra. 


move. Ww 
move. w 
bra 


; Tech mode 
@20 move.b 
move.b 
bra 

3; Tech mode 
@21 


loap, 
move.b 
move.b 
bra 


move.b 
move.b 
cmp. w 
.baq . 
cmp. w 
beq 


mave. w 
move.b 
mave.w 
nop 
nop 
mova.b 
and.w 

_ ¢mp.b 
bne 


move.w 
move.b 
nop 
move. b 
and. w 
cmp.b 
bne 


@l move.b 
move.b 
move.b 
cmp. w 
beq 


move. w 
move. b 
mave. w 
nop 
mave.b 
and.w 
emp.b 

abne 


move. w 
mave.b 
nop 
move.b 
and, w 

“ cmp. b 
bne 


rts 


move.w 
move, w 
bra 


move. w 
mave. w 
bra 


; Tech mode 
@20 


laop 
move.b 
maves. w 
bra 

; Tech mode 

@21i 


loop 
move. 6 


move. Ww 


bra 
i 
7 
PB4and6 

bsr 


mave.b 


| 
| SSEeseseeeessceesesesesessenseneweanenes eases esas seeskeasseseseseaesee see 
PBO0and7 ;Check cannection thru ceble PB0, P87 
bsr INI TBOARD ; 
move.b snc! one) aa} ;PB 2,3,7 output 


“#910, ODRB( #2 ) 


oe ewe Ne Pee es 1 ae AT 


AT Ne TTD EE EES ESTE SE PEE ST TSI A SETS SDSS LOE SN ECL A SE FEO EEE AE IO TEAS TIE TEE A IE A TE A RE tT OED SED ALS TIATED 


@10 


d0,d4 
47, d7 
@10 


yActual, d3 contains expected 


loop, send data from port A to port B 


#$55, ORA( #2 ot 
#$AA, ORA( a2 
#20 


send data fram port B to port A 


#$55, ORA( a3 
#SAA, ORA( a3 
G21 


#$0C, ODRA( a3 
#$00, ORB( a3 ) 
#12,d5 

@20 

#13,d5 

o1 


3;P8 0 input 


#$80, d3 
d3, ORB( #2) 
#$01, d3 


ORB( a3 ), dO 
#$0001, dO 


* d3, dO 


@il 


#$00, d3 
d3, ORB( a2) 


ORB( a3 ), dO 

#$0001, dO 

d3, dO . 

@it : 


;PB 2,3,7 output 


#$8C, DDRB( a3 
;P8 O input 


#$OC, DORB( a2 
#$00, ORB( a2) 
#13, d5 

21 


d3, ORB( a3 ) 
#$01,d3 


ORB( a2), dO 
#$0001, dO 
d3, dO 

@12 


#8$00, d3 . ‘ 
d3, ORB( a3) . 


ORB( a2), dO | > 
#$0001, dO 

d3, dO 

@12 


dO, d4 
88, d7 ; 
@10 , 


sActual, d3 contains expected 


dO, d4_ 
#9, d7 
@10 


pActual, d3 contains expected 


#580, ORB( a2 ; 
#$00, ORB( a2 . 
@20 ; 


epee ed . ‘ 


#$00, ORB( a3 


. 621 


PTITITITITTItTritrititiirrirititiritirirrtit itt ili tirier ere eee eee ett ts 


;Check connection thru cable PB4,P86. 


INITBOARO 


;PB 2,3,4 output”. 


Iris emeehacesteemiadenecienndemeceina eiaemmmemsceenmeeeeis dementias eerie tetanic ete niet een eee enn On ne nen 
é t 


move.b #$0C, DORS{ #3 ) :PB 6 input. 


move.b #$00, ORB( a3 ) ”~ 
cmp. w #14, d5 3 Tach mode? 
beq @20 . 


cmp. w #15,d5 
beq _ wl * ; ' Sy tio at et 


move.w #$10,d3 ° 
move.b 43, ORB( #2) 
move.w #$40,d3 
nop 

nop 

move.b ORB(a3), dO 
and.w #0040, d0 
cmp.b d3, dO 

bre @11 


move.w .#$00, d3 
move.b 463, ORB( #2) 
nop 

move.b ORB(a3), dO 
and.w #$0040, dO 
cmp. 6 d3, dO 

bnea @11 


@1 move. #$1C, DDRB( a3 ;P8 2,3,4 output 
move.b *#*$0C, DORB =3} ;P8 6 input 

move.b #$00, ORB( a2) 

emp. w #15,d5 

beq @21 


move.w $10, d3 
move.b d3, ORB( a3) 
move.w #$40,d3 
nap 

move.b ORB8(a2), dO 
and.w #$0040, dO 
‘emp. b d3,d0 

bne @12 


move.w #$00,d3 

move.b d3, ORB( a3) 

nop 

mave.b ORB(a2),d0 

and.w #$0040, dO 

cmp.b d3,d0 “ 


t 
bne @12 : 
{eto rts | 
@ll move.w d0,d4 sActual, d3 conteins expected 
move.w. #10,d7 
bra 610 
: Tech mode = 
{ 
! 


@12 move.w dQ0,d4 ;Actual, d3 contains expected “ 
move.w #11,d7 
bra 610 


: Tach moda 
@20 move.b #$10, ORB([ a2 
move.w $00, ORB( a2 


bra @20 . * 


move.w #$00, ORB{ a3 
bra @21 


@21 move.b #$10, ORB = 


‘ cocssazefseasenenesenanseanenseeenneesannssetsosessenenasdse2easannaesseee 


bejandCBl »Check cannection thru cable P83, CBi 
: bsr INI TSBOARD 


; sBEUp vector to expect CBl interrupt 
ori.w #$0700,s3sr_sC; ;Oisable interrupts 
lee INTCARD, al ms » 
move. | al),a4 © : 
move. | a4}, al «get vector address 
move.1l al, SAVEVECTOR( a8) ;+..Save ald vector 
lea ICB1V1, al ;New interrupt veeter 
_ move. | al, (a4) aie dnee vector * 
move #$2100, sr ; let the 6522 interrupt come thru 


move.b #$0C, DDRB(a2 ) 3P8 2,3 output” | 
mave.b #$00, ORB( a2) jmake an output gate 
move.b #$0C,O0RB(a3) ;CBl input 

move.b #$08, ORB(a3 ) phase: an input gate 


Set PCR ta interrupt on high going edges 
move.b #%10,PCR(a3) 
move.w #$00Q, aids ae Reiger happened a 


Enable C81 interrupt capability 
move.b &#&$7f, IFR 23 All flags of f 
move.b #$90, IER( a3 


Sansa ena eatRRR Rn mnnnmnemeoneednmeimmtnemeemen semen eee atmeeneinncanaeenetaneme see seneenen= = acaniae 


cmp. w #16,d5 


beq @20 
cmp.w  #17,d5 _ 
beq 61 


; Wait and assure no interrupts 
nop i 
nop 
move.w CB1VIA1(a5 ), dO 
cmp. w #0, d0 
bne @12 


; Drive a 1 out of PB 
move.b #$08, ORB( a2 ) 
nop 
nop 


jTech mode loop? 


i 


; Tech mode loop? 


; Check to see if got interrupt, fail if did not. 


move.w CBILVIAL(aS ), dO 
cmp. Ww #0,d0 
beq @13 


; Reset got interrupt flag 
move.w #0,CBIVIA1(aS ) 


; Orive a O out. of P83 
move.b #$00, ORB( a2) 
nap 
nop 


; Check an assure no interrupt 
move.w CBLVIA1(aS ), d0 
cmp. w #0, d0 
bne @12 


; Orive a 1 out of PB 
_mave.b #$08, ORB( a2 ) 
nop 
nop 


; Chack to see if got interrupt, fail if did not. 


move.w CB1VIA1(a5 ), dO 
emp. w #0, d0 
beq @13 


Disable CB1L interrupt. 
@l move.b #$7F, IER( a2) 


; Setup vector to expect C81 interrupt 
ori.w #$0700, sr 


lea INTCARD, al 
move. 1 (al), a4 
lea ICB1V2, al 
move. | al,(a4 
moves #$2100, or 

‘ mave.b #$0C, OORB( a3 


) 
move.b See oasis 
move.b #$0C, OORS( a2 ) 
emove.b #$08, ORB( a2) 


move.b .#$10,PCR(a2 


« move.b #$7f, IFR 


; Enable CB1 interrupt capabilit 
move.b #871 IER 


a2 


cmp. w #17,d5 
beq @21 


; Wait and assure no interrupts 
: nop 
nop — 
move.w CBIVIA2(aS ), dO 
cmp.w = #0, dO , 
bne- Gil 


; Drive a 1 aut af PBS 
move.b #$08, ORB( a3 ) 
nop : 
nop 


; Set PCR to interrupt on high going adge 


:;Disable interrupts 


jNew jAnterrupt vector 
j-». into vector | 
3; let the 6522 interrupt come. thru 


;PB 2,3 output — 
;make an output gate 
;CB1 input : 
iMake an input gate 


“ 


mave.w es00; CoLvtAg( 08) :¢ leer happened flag 


a} pAll Flags aff 


; Tech mode loop 


; Check to see if got interrupt, feil if did not. 


move.w CBIVIA2(aS), dO 
cmp. w #0,d0 
beq . 614 


; Reset gat interrupt flag . 
move.w  #0,CB1VIA2(a5 ) . 


Drive a 0 out of PBS. : esate 
; move.b #$00, ORB( a3 ) 


nop 


a 


é 


; Check an assure no interrupt. 
move. w cot iras (68). 
cmp. w #0,d0 
bne . @ll = 


; Drive a 1 out of PBS 

move.b #$08, ORB( 93 } 
nop 

nop 


; Check to see if got interrupt, fail if did not. 
mave.w CBIVIA2(aS ), dO 

cmp. w #0, d0 

beq @14 


; Disable CB1 interrupt. 
move.b #$7F, TER(a3) 


won we ee wen ee 


Restore vector to original 
MOVE #$2700,SR ;disable all interrupts and rest interrupt 
lea INTCARD, al 
move. 1 (al), a4 
mave.1 SAVEVECTOR(a§& ), al 
move. 1. al, (a4) 


@10 res 


; Extranous interrupt error on part A 


@1l1 move.w #12, d7 
bra @10 
‘ Extranous interrupt error an port 8 
@12 move.w #13,d7 
bra 610 
; Expected interrupt did mot occur an port B 
@13 move.w #14, d7 
bra @10 
; Expected interrupt did not sceur an port A 7 
14 move.w #15, d7 
bra @10 


: Tech mode loap 
@20 move.b #$08, ORB( a2 ) : Drive al out of P83 
nep 


nop { 
move.b #$00, ORB( a2) ; Orive a 0 out of PBS 


nop 
nep 
bra @20 
: Tech made loop 
@21 cmove.b #$08, ORB( a3) ; Drive a 1 out of PBS ; 
nop * se a 
nop . ; 
move.b #%00, ORB{ a3 ) 3; Drive a O' out of PBS 
nop 
nop 
bra @21 
H * 
Interrupt routine for P83 to CB1 test. 
TCBLV1 , move.1 d0,-(sp) ‘ ;Save registers gn interrupt entry 
move.b IFR(a3 jes ;See if Cal : 
btst #4,d0 3». CBl flag 
beq ei : sa --mat CBl if flag zera ‘ 
tst.b  ORB(a2) preset CB1 interrupt. 
move.w #$01,CBIVIA1(a9) ;set happened Fleg 
wt move. 1 (sp)+,d0 ;restore regs on interrupt exit 
rte 
ra 
Interrupt routine for PB3 to CB test.. i. 
TCBLV2 mova.1 d0O,-(sp) jsave registers on interrupt entry 
move. b TFR( 82), d0_ a if CBl 
best #4,d0 -CB1l flag : 
beq @1 -not CBl if fiag zero 
tst.b ORB(a2) tessa CB1 interrupt 
move.w  #$01, CBIVIA2(a5 ): ;set happened flag 
@t move.1 (sp)+,d0 ee regs on interrupt exit 


rte, ; Beg . 
; ucivaaSaccuagsses saaensaseerascensrdsnazszasasesadsansaeecesassasaazszss 
CA2andP8l ;Check connection thru cable Caz, :) : 
- sr INI TBOARD a ” 


fr 


' 


Setup vector to expect CAL interrupt 


eee ge aoe: wie trews « Tiwrte TAI 


ori.w #$0700,.ar pDisable interrupts 
lea INTCARD, al 

move, | al), a4 

move. 1. (a4), al «get vector address 
move. 1 al, SAVEVECTOR( a5) ;... Save old vector 
lea ICA1V1, al ;New interrupt vector 
move. | al, (a4) toes ine vector 


move #$2100, sr 


mave.b #$0C, ODRB(a2). 
move.b #$00, ORB( a2 ) 
move.b #$0C, ODRB{ a3) 
move.b #$08, ORB(a3 ) 
mave.b #$0C,PCR(a2) 


Set PCR to interrupt on high geing edge 


move. 6b 
move. w 


#$01, PCR( a3 ) 


move.b #&$7f,IFR 


Enable C81 interrupt capabilit 
move.b na7t, TER] 


23 


let the 6522 interrupt come thru 


;PB 2,3 output | 
;make an output gate 
;PB1 input 

;Make an input. gate 


;Drive CA2 Low 


#$00, CALVIA1(aS) ; clear heersrsd flag 


;All flags off 


; Tach mode loop? 


- cmp. w #198,d5 
beq @20 
cmp. w #19, d5 
beq ol 

Wait and assure no interrupts 

nop 
nop 
move.w CALVIA1(a5 ), dO 
cmp. w #0,d0 
bne @il 
mavea.b #$0E,PCR(a2) ;Orive CA2 High 
nop ‘ 
nop 


Check to see if got interrupt, fail 
mave.w 
cmp. w #0, dO 
beq @12 


Check PB1 for constant level 


move.b OR@(a3), dO 
and.b #$02,d0 
emp. b #$02,d0 
bne @1l7 


Reset got interrupt flag 
mave. w *0, CAIVIA1(a5 ) 


move.6 
nop 
nop 


#$0C, PCR(2) | 


CAIVIA1(a5 ), dO. 


if did not. 


/ 


;Orivea CA2 Low 


Check an assure na 


cmp. w 


interrupt 
omove.wW CALVIA1(aS ), dO 
#0, d0 “se 
@1i 


bne 


Check PBI far constant level 


move.b ORB(a3), dO 
and.b #$02, dO 

« emp.b #&$00,d0 
bne @17 
move.b #$0E, PCR( a2) 
nap : 
nop 


;Orive CA2 High 


Cheek to see if got interrupt, feil if mid not. 


move. Ww aa 
cmp. w #0, dO 
beq @i2 


Check P81 for constant level 


mave.b ORB(a3), dO 
and.b #502, d0 
cmp. b #$02, dO 
bne @l7 


Disable CB1 interrupt. 
: mave.b 


#$7F, TER( a2) 


Setup vector ta expect CAl interrupt 


ori.w #$0700, sr 
lea  . INTCARD, al) 
move. 1 (al), a4 

lea ICALV2, al 
move. | al, (a4) 
move #E?7 100, ec 


& 


;Otsable interrupts 


jNew interrupt vector 


into vector ; oe 
let the 6522 interrupt ‘come thru 
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rege \ 


move.b #$0C,00RB(a3) ;PB 2,3 output - 
mave.b #$00, ORB(a3 ) ;make an output gate 
move.b #8$0C,O00RB(e2) ;PBL input 

move.b #$08, ORB( a2 ) ;Make an input gate 


move.b #$0C,PCR(a3) ;Orive CA2 Low 
; Set PCR to interrupt on high going ‘edge 
move.b #$01,PCR( a2) 
move.w #$00,CALVIAZ(s5) ;clear happened flag 


: Enable C81 interrupt capability 
move.b neste ey ” 3ALll Flags of f 


move.b #$82, TER( a2} 
: cmp. w #19,d5 ;Tech moda loop? 
beq @21 


; Wait and assure no interrupts 

nop 

nop 

move.w CALVIA2(a5 ), dO 
cmp. w #0, d0 


bne @14 

_move.b #$0E,PCR(a3) — ; Drive CA2 High 
nop . 
nop 


; Check to see if got interrupt, fail if did not. 
move.w CAIVIA2(a§ ), cl0 
cmp. ws #0, dO 
beq 613 


; Check PBl1 for constant level 
move. ORB( a2), dd 
and.b #$02, d0 
cmp.b #$02,d0 
bne 618 . 


; Reset got interrupt flag 
move.w #0, CALVIA2(a5 ) 


move.b #$0C,PCR(a3)  ;Orive CA2 Low | 
nop 
nop . 


3; Check an assure no interrupt - 
move.w CALVIA2(a§5 ), dQ 
emp. w #0, d0 
bne @14 


: Check P81 for constant level 
move.b ORB(a2), dO 


and.b  #$02, dO i “ 
emp. b #$00, dO 

bne . 918 

move.b #$0E,PCR(a3) | ;Drive CA2 High. 

nop 
,nap 


bs 


; Check to see if got interrupt, fail if did not. * 
move.w CALVIA2(aS), 40 
cmp. w #0, dO 
beq @13 —_ » 


» Check P81 for constant level 
ie move.b ORB( a2), dO 
and.b #$02,d0 
cmp.b #$02,d0 
bne 618 


; Oisable CBl interrupt. 
: move.b #$7F,IER(a3) 


mer we wee oe wt we 


Restore vector to original f * 
MOVE #$2700,SR ;disable all interrupts and rest interrupt . 
lea INTCARD, al . 


mova.1 (al),a4 a 
move. 1 SAVEVECTOR( a5 ), a1 
move.1 al, (a4) 


@10 rts 


; Interrupt occurred when none expected, an Port 8. 


@1l move.w #13,d7 
bra 10 
; ate 
; Expected interrupt did not occur on port B. ar 


@12 move.w #14,d7 : 


bra 


; Expected interrupt did not occur on port A. 


@i3 move. ut 
bra 


610 


#15, d7 
@10 ; 


; Intercupt occurred. when none expected, an Port A. 


@14 move. w 
bra 

; PBl on port 8 failure 

@17 move. w 
bra 

; PBl an port A failure 

@18 move. w 
bra 


; Tech mode loop ; 

@20 move. b 
nop 
nop 
move.b 
nop 
nop 
bra 

; Tech mode loop 

@21 move.b 
nap 
nop 
move. b 
nop 
nop 
bra 


Interrupt routine for 


TCAIVI move. 1 
mave.b 
btst 
beq 
tst.b 
move. Ww 


el move. | 
rte 


; Interrupt routine for 


ICALV2 move. | 

pes move.b 
btst 
beq 
tst.b 
mave. Ww 

@l .« move. | 
rte 


#12, d7 
@10 


(BSY ) 
#18,d7 
@10 


(BSY ) 
#19, d7 
@10 


#$0E, PCR( a2) ;Orive CA2 High 
#$0C, PCR( a2 ) ;Orive CA2 Low: 
@20 
#$0E, PCR(a3 ) ;Orive CA2 High 
#S0C, PCR(a3 ) ;Orive CA2 = 
@21 


PB3 to CAl test. 


dO, -(sp) jsave registers on interrupt antry 
IFR( a3), dO ;See if CAL 

#1,d0 Habe Flag 

el -not CAl if flag zero 

ORA(a3 ) reset CAl interrupt 


#$01,CALVIA1(a5) ; set happened Flag 


(sp )*, dO jrestore regs on interrupt exit 


PB3 to CAl test. 


dO, -(sp) ; save registers on interrupt entry 
IFR( a2), dO ;See if CAL 

#1, d0 .CAL flag 

61 ; ot CAL if flag zero 

ORA( a2 ) res t CAl interrupt 

#$01, CALVIA2( a5) pet happened flag 

(sp )+,d0 prestore rags an interrupt exit 


‘ 
» errr rrrrrerrrrrerrrrrrrr rt rrr Trt rerrrr reer rrr i itr rtrrrrr erent Tene 


osr 


mave.b 
move.b 
move.b 


move.b 
move.b 
move.b 


cmp. w 
beq 


lea 
lea 
elr.w 


move. w 
move.b 
move. w 
adda 

move. 
move. 
move. 
move, 
move. 
cmp.b 
bne 

clr.u 


‘Tocre 


_ d4 


; a2 - Fiest VIA address. : 4 
H a3 - Second VIA address. : . 
APar ity 


DORA set to inputs, A port. 
INI TBOARD 


#$FF,OORA( a3 ;Makea port B output data 
#$1C, DORB( a3 $PB 2,3,4 output 
#$00, ORB( a3 ) ;Make an output gate 


#$2C,DDRB(a2) ;PB 2,3,5 output: 


#302, ORB{ a2 imake an input gete 
#S6A, PCR( a2 pane pulse output, C82 pos edge ind inter 
#20,d5 ana mode ‘loop? 
@20 
PData, a 
PExpect, al + 
ParityTests(aS) ;Clear test number -counter 
(a0), do a ’ 
dO, ORA(a3 ) ; Data 
44(a0), dl 
#2, aQ « 
di, ORB( a3 ) pParity line 
#308, ORB{ a2 ;Pulse resat line high 
#$28, ORB( a2 ; resat line low 
#$08, IFR( a2 ;Reset CB2 flag in case it was set 
ORA( a2), d3 _ Read port A 
' d0,d3 . $e... assure data is correct 
wll 


move.b IFR(a2),d4 j;Read see if cB2 was ‘Flagged. 
move.w d4,44(al) jee. Save actual 
move. Ww (al)s, di 
eor.w di,d4 — yOnly leave ca2 difference 
and. uw #$08,d4 Se pg ee: 
cmp. Ww #0,d4 - rine 
bne ~ @12 . 
move.w ParityTests(a5 ), d0 
add.w #1,d0 
move.w d0,ParityTests(aS ) 
cmp. w #22, d0 
bre @1 
; End of loop 
@10 rts 
; Bad data (PAQ-PA7) during parity test. 
@1l move.w #20, d7 
bra @10 - 
; Bad parity (CB2) during parity test. 
@12 move.w #21,d7 ‘ 
bra @10 
; Tech Mode laop . 
@20 movea.b #$01, ORA(a3 ;Data 
move.b #$01, ORB(a3 ;Parity line 
move.b #$08, ORB( a2 pPules reset line high 
move.b #$28, ORB( a2 reset line low 
move.b #$08,IFR( a2 ‘ Rexet CB2 Flag. in case it was set 
move.b ORA(a2),d3 ;Read port A 
move.b sl be ,d4 ; Read see if C82 was f lagged. 
move.b ¥#$03, ORA(a3 : Data 
move.b #301, ORB( a3 ;Parity line 
move.b #$08, ORB( a2 ;Pulse reset line high 
' move.b &$28, ORB( a2 ; reset line low 
move.b #$08, IFR( a2 ;Reset CB2 Flag in case it was set 
move.b ORA(a2),d3 ;Read port A 
move.b IFR(a2),d4 ; Read see if CB2 was flagged. 
bra @20 
; sass asrsszsss SSIES ERATE AT RTUNA NARA AA ARR ELAN AEs eee Ase ssAAS 
BPar ity ~ 
; DDRA set to inputs, A port 
bsr INI TBOARD - 
’ i 
mave.b #&$FF,DODRA{ a2 iMake port B output data 
move.b #$1C, DORB( az ;PB 2,3,4 output, 
movea.b #$00, ORB( a2 ) j;Make an output gate 
, 
mave.b #$2C, DORB( a3) 3,5 output 
move.& #$08,O0RB(a3) - talkal af input gate 
move.b &#&$6A,PCR > ;CA2 pulse output, C82 pox edge ind inter 
cmp. w #21, d5 
beq @20 
lea PData, 30 
lea PExpact, al. be ee ; 
clr.w ParityTests(a5) ;Clear test number counter 
@1 2 , . 
move.w (a0), dO . 
move.b dO, ORA( a2) ;Date 
move.w 44(a0),di 
e adda #2, a0 
move.b di, OR@( a2 ) ;Perity line 
move.b #$08, ORB( a3 ;Pulse reset line high 
move.b #$28, ORB{ a3 : reset line low 
mave.b #$08, IFR( a3 ;Reset CB2 flag in case it was set 
move.b QRA(a3),d3 ; Read port A 
emp. b dO, d3 3... assure data is correct 
bne @il ; G 
elriw d4 , , 
move.b IFR(a3),d4 qReed see if ce2) was: pregaer 
move.w d4, 44(al) -save actual 
move.w (al)+,di 
ear. Ww di,d4 ;Only leave CB2 dipkeranee. 
and.w #£08,d4 + 
emp. w #0,d4 . 
bne 612 oO a * 
move.w ParityTests(aS ), d0 
add. w #1,d0 
move.w dQ, ParityTests(e5 . 
cmp, ul #22, d0 
bne wl 
; End of loop 
@10 rts 


; Bad data (PAQ-PA7) dur irig parity teat. 
@it move.w  #22,d7. nos 
bra #10 ; en at os ae te 


* 
' 


; Bad parity (C82) during parity test. 


e12 mave.w #23,d7 
bra #10 — 
; Tech Mode laap : 
@20 move.b  #$01, ORA( a2 ; Data 
move.b #$01, ORB( a2 ;Parity Line 
mave.b #$08, ORB( 23 ;Pulse reset line high 
move.b #$28, ORB( a3 H resat line low 
move.b #$08, IFR( a3 ;Rasat CB2 flag in case it was sat 
move.b ORA(a3), d3 ;Read port A 
move.b aealcani as ; Read see if CB2 was flagged. 
move.b #$03, ORA( a2 ; Data 
move.b #301, ORB( a2 ;Parity line, 
move.b #$08, ORB( a3 ;Pulse reset lines high 
move.b #$28, ORB( a3 ; raset line low 
move.b #$08,IFR(a3) ;Reset CB2 flag in case it was sat 
move.b ORA(a3)}, d3 ;Read port A 
mave.b IFR(a3),d4 -; Read see if CB2 was f lagged. 
bra @20 . 
‘ REM SSSR Ee SSSR SSR SS SSS Sera eR TTA AIT LENS eVT CAAT R UTA AATALARAARKAasA2s 
; Restore VIA for next user 
RESTORE 
move #$2700, sr ;Disable interrupts 
lea KBOVIA, al ;Enable keyboard COPS 
move.b #$7f, TER( al) 
move.b _KBDIEN(aS),dQ ;Get from LOCAL table 
move. b& ao ten) 
cIr.b. ACR(a2) 
move.b #$7f, IFR( a2 
move.b #8$7f, IER( a2 ;All interrupts of F 
elr.b ACR(a3) 
move.b &$7Ff,IFR a3 ) 
mave.b portchias All interrupts of f 
rts 
’ PPE py A AS RSD 
CARD . WORD 0,0 Card base address, where Beet ROM is 
INTCARD . WORD 0,0 sint vector for card 
LOCAL . WORD 0 ; TICKTOCK 
. WORD 6) ;T1 
. WORD 0 ;T2 
“WORD 0 ;KBOtEN = / 
. WORD 0,0 +; SAVEVECTOR 
. WORD Q ;WhichT imer 
8 . WORD 0 ;CALVIA1L 
. WORD (e) ;CALVIA2 
. WORD 0 ,;CBIVIAL 
. -WORD 0 ;CBLVIA2 
«WORD O ;ParityTests te 
; Tables derived from National LOGIC databook for Ls280, P6-204 
POata . WORD $00 ;Deata for PAQ-PA7 
. WORD $01, $02, $04, $07 
. WORD $03, $06, $05 
3 . WORD $08, $10, $20, $33 
. WORD $18, $30, $28 
. WORD $40, $80, $00, $CO 
. WORD $CO, $80, $40 
WORD $00 ;Parity sent, PB6 
. WORD $00, $00, $00, ‘$00 
. WORD $00, £00, $00 
. WORD $00, $00, $00, $00 
. WORO £00, $00, $00 
. WORD $00, $00, $10, $10 
. WORD $00, $10, $10 © ? . 
; Expect $08 = expact CB2 interrupt, (0 2 no interrupt expected 
PExpect . WORD £08 ; Expected 
. WORD $00, $00, $00, $00 7 
« WORD $08, $08, $08 ‘ 
. WORD $00, $00, $00, $00 : 
. WORD $08, $08, $O8 ; 
. WORD $00, $00, $00, $00 
, WORD $08, $08, $08. 
. WORD $00 “ ;Actual, 
. WORD $00, $00, $00, $00 
. WORD $00, $00, $00 
-WORD $00, £00, $00, $00 
. WORD $00, $00, $00 
-WORD £00, $00, $00, $00 
. WORD $00, $00,$00_ 
Flag far table end and debu : ; : ’ 


. WORD $1234, $5678 
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ote wepecerse Pre 2. GTS PAL 


1, 
0, 


. WORD 
Timer test values MSB8 


" test values LSB 
. WORD 


Timer 
TESTVALUES 


0, 


-WORD - 
.WORD‘4# 1, 


3, 


$laf, $356, 


$0d 
$d6b 


$0c, 
$cal, 


0, 


Seca, 


6, 
$6bc, 


0, oO, 0, 0, 0, 1, 
-WORD $0d,$1a, $35, $6b, $d7, 


- WORD 


EXPECT 


sof 
S$d6d 


$0e, 
$ca3, 


2, 
$cc, 


8, 


t 


5; 


3, 
.WORD $Of,$1c, $37, $6d, $d9, $1b1, $360, $6be, 


2, 2, ay 2, 


2, 


. WORD 


in VIA 


. OORS, DDRA, TILL, TILH, SR, ACR, PCR 
AVAILABLE .WORD 0,0,1,1,0,0,1,1,0,0,1,1,1,0,0,0 


3 


Registers to test 


Le ee 


eoo0o00coo0c00000o 
OCGQ0000000G5C0 
-@O000000000000 
roe KaS=¥~¥-KoK-f-¥-0-k-0-¥-) 
OG00dC0o0CCC000 
sédddddddddddd 


oooocd00n0c°co°0c°coe°o0°oo 


ee ee ee 


“eoo00co0o0co0cooco0o0s 


GOSCSCDGCO0GCOC000 
aeot--¥-¥-¥-¥-¥-¥-4-0-9-¥--) 
GooccosocococoGo50 
SOSdOdddddSGdS 


GocceddddocGGo 


LL Sl Bo ok 


es = es Be ee ee ee le le 


SGoOocsco0o00o0cc a. 


EE ot I on le 


moo00o00ccocooo00c0coo | 


ee 
Soe eee 


OOOO OL OOO .C 2 


DEBUG 


” 
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